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Preface 


The  Air  Force  Wright  Aeronautical  Laboratories  (AFWAL),  in 
cooperation  with  the  MBB  consortium  of  the  Federal  Republic  of  Germany, 
has  planned  to  investigate  the  effects  of  composite  lamina  fiber 
orientation  on  control  reversal  for  various  wing/fin  configurations  by 
analytical  and  experimental  means.  While  the  use  of  fiber  composites  in 
aircraft  construction  has  grown  in  the  past  few  decades,  only  recently 
have  complete  wings,  stabilizers,  and  control  surfaces  been  fabricated 
from  this  material.  Despite  this,  a  careful  parametric  study  of 
aeroelastic  effects  has  not  been  undertaken.  This  thesis  research  is 
one  element  in  the  study,  demonstrating  the  entire  design,  fabrication, 
and  testing  process  for  such  an  investigation.  It  includes  testing  a 
single  aft  swept  wing  planform  with  full  and  partial  span  aft  control 
surfaces  in  a  subsonic  wind  tunnel  and  comparing  the  results  with 
predictions  rendered  from  simple  computer  modeling.  The  research  also 
includes  relatively  simple  computer  programs  for  designing  and 
predicting  the  aeroelastic  characteristics  of  each  proposed 
configuration  in  terms  of  deformation,  reversal,  divergence,  and 
flutter.  Documentation  of  these  programs  permit  them  to  be  used  as  a 
consistent  family  of  aeroelastic  routines  in  operator  fasion. 

The  author  wishes  to  extend  his  appreciation  for  the  kind  and 
patient  assistance  of  his  research  advisor.  Major  Lanson  Hudson,  and  the 
other  members  of  the  thesis  committee;  Major  Ronald  Hinrichsen,  Dr. 
Shankar  Mall,  Dr.  Harold  Larson,  and  Dr.  Robert  Calico.  Debt  is  also 


owed  to  Mr.  Edmund  Pendelton  of  AFWAL  for  sponsoring  the  project  and 


making  countless  hours  of  time  available  to  assist.  Thanks  are  due  to 
Mr.  James  McKiernan  of  the  University  of  Dayton  and  Mr.  Kevin  Spitzer  of 
the  Flight  Dynamics  Laboratory  for  their  knowledge  and  skill  in 
fabricating  the  composite  plates,  and  to  the  talented  and  generous 
craftsmen  at  the  Air  Force  Institute  of  Technology  (AFIT)  model  shop  for 
the  final  model  construction.  Special  thanks  to  Mr.  Andrew 
Riemenschneider  who  operated  the  wind  tunnel  and  contributed  sound  and 
timely  advice. 


Wil liam  J.  Norton 
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Abstract 

This  research  provides  a  simple  and  verified  means  for  conducting 
parametric  studies  of  the  effects  of  composite  lamina  orientation  on  the 
aeroelastic  characteristics  of  a  swept  wing.  The  entire  design 
methodology  for  a  wind  tunnel  model  for  this  purpose  is  demonstrated. 
The  study  used  beam  structural  analysis  and  aerodynamic  lifting  line 
theory  for  the  static  analysis.  These  methods  are  easy  to  implement  and 
do  not  consume  extensive  computer  resources.  The  analytical  models 
predicted  lateral  control  surface  reversal  speed,  divergence  speed, 
deformed  shape,  loads,  and  wing  flutter  characteristics.  Computer  model 
results  for  a  single  wing  planform  were  compared  with  wind  tunnel 
results.  Three  models  were  constructed  around  composite  plates  with 
identical  laminate  stacking  schedules  but  with  different  orientations 
with  respect  to  the  structural  reference  axis.  Valuable  insight  into 
fabrication  of  aeroelastic  models  for  this  purpose  was  gained. 

The  analytical  model  and  symbology  is  based  upon  the  work  of  Dr. 
Terrence  Weisshaaar  (15-18).  His  computer  codes  have  been  modified  to 
provide  additional  information  for  this  study  and  to  assist  in  the 
subsequent  experimental  effort. 
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DESIGN  OF  AN  AEROELASTIC 


COMPOSITE  WING  WIND  TUNNEL  MODEL 


I.  Introduction 

The  Air  Force  Wright  Aeronautical  Laboratory  (AFWAL)  Flight 
Dynamics  Laboratory  (FDL)  is  undertaking  a  parametric  study  of 
aeroelastic  effects  of  wings  and  fins  constructed  of  composite 
materials.  The  orthotropic  behavior  of  composite  material  permits 
"tailoring"  of  the  structure  for  the  aeroelastic  needs  of  the  proposed 
usage  while  maintaining  light  weight.  The  immediate  task  is  to 
investigate  lateral  control  surface  reversal  susceptibility  of  such 
structures,  however  other  aeroelastic  effects  such  as  divergence  and 
flutter  must  be  considered  when  designing  a  wind  tunnel  model.  This 
thesis  research  was  performed  as  an  initial  effort  in  this  project, 
testing  both  analytical  and  model  construction  methods.  While  actual 
structures  of  this  kind  would  likely  consist  of  composite  laminate 
sheets  as  outer  surfaces  with  supporting  internal  members  (ribs, 
longerons,  stringers,  etc.),  this  study  will  concentrate  on  models 
fashioned  about  composite  plates  with  aft  controls  surfaces  consisting 
of  a  flap  and  an  aileron,  with  both  acting  in  concert  to  form  a 
flaperon. 

The  AFWAL  study  entails  constructing  many  models  with  varied 
planform  and  control  surface  configurations  as  a  parametric  analysis. 
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The  AFWAL  models  will  be  operated  at  subsonic  tunnel  speeds.  Predicted 
model  tip  deflection  will  be  scaled  to  that  estimated  for  a  full  scale 
prototype. 

Lateral  control  reversal  refers  to  an  aeroelastic  phenomena  whereby 
wing  deformation  reduces  the  effectiveness  of  a  roll  control  device  to 
zero.  The  trailing  edge  down  deflection  of  an  aft  mounted  aileron  or 
flaperon  produces  a  leading  edge  down  twisting  moment  on  the  wing.  This 
causes  a  reduction  in  the  effective  angle-of-attack  of  the  wing-aileron 
and  reduces  the  rolling  moment  normally  expected  of  a  rigid  wing.  This 
twisting  moment  increases  with  airspeed  until  reversal  speed  is  reached 
where  rolling  moment  from  the  control  deflection  is  reduced  to  zero. 
Beyond  this  speed  aileron  deflection  will  produce  rolling  moments 
opposite  to  the  normal  control  sense.  Reversal  is  aggrevated  by  wing 
sweep  which  normally  produces  torsional  structural  deformation  under 
load. 

For  a  swept  wing,  structural  deformation  will  consist  of  both 
bending  and  twisting  components.  This  deformation  is  resisted  by  the 
restoring  tendency  of  the  wing  structure.  When  such  a  wing  bends,  the 
angle  of  attack  along  the  span  is  increased  giving  rise  to  an  increase 
in  the  aerodynamic  loads  and  thus  further  deformation  until  an 
equilibrium  is  established  between  the  airloads  and  the  structure's 
restoring  tendencies.  When  these  airloads  exceed  the  ability  of  the 
structure  to  resist,  the  deformation  will  continue  indefinitely  or  until 
the  force/displacement  relation  becomes  nonlinear.  This  effect  is  known 
as  divergence,  resulting  in  structural  failure. 
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Flutter  is  the  dynamic  interaction  of  unsteady  airloads  with  the 
natural  vibrational  characteristics  of  the  structure.  The  change  in  the 
intensity  and  distribution  of  airloads  with  associated  structural 
deformation  and  restoring  motion  results  in  a  cyclic  phenomena.  When 
vibratory  modes  couple  at  a  specific  airspeed,  undamped  oscillation  or 
flutter  is  likely,  most  often  resulting  in  structural  failure. 

Several  other  aeroelastic  phenomena  are  ignored  in  this  study. 
Aeroservoel asticity,  or  the  interaction  of  airloads  and  structural 
vibrations  with  the  elastic  behavior  of  actuators  and  hinges,  has  not 
been  considered.  The  consequencies  of  thermodynamic  effects  in 
structural  characteristics  or  aerothermoelasticity  was  also  excluded 
from  this  study. 

The  principle  objective  of  this  research  was  to  investigate  the 
control  reversal  characteristics  of  a  composite  wing  consisting  of  a 
plate  cut  to  the  wing  planform  as  the  load-bearing  structure.  The 
challenges  of  constructing  a  wind  tunnel  model  for  such  a  study  are 
manifold.  The  reversal  speed  must  be  predicted  to  occur  within  the 
range  of  the  tunnel,  requiring  that  the  composite  be  tailored  to  this 
requirement.  Divergence  must  occur  beyond  the  reversal  point  and  with  a 
sufficient  margin  to  allow  for  errors  in  the  prediction  methods.  To 
demonstrate  this  phenomenon,  divergence  was  sought  within  the  speed 
range  of  the  tunnel  but  with  this  constraint.  Flutter  must  be  avoided 
by  a  wide  margin.  A  means  must  be  found  to  create  an  airfoil  shape 
around  the  plate  and  secured  to  the  plate  in  such  a  way  that  lift  forces 
are  effectively  transmitted  to  the  laminate  structure.  This  must  be 
accomplished  with  light  weight  and  without  significantly  altering  the 


inertial,  stiffness,  and  geometric  properties  of  the  structure.  A 
method  must  also  be  devised  to  mount  the  model  in  the  tunnel  in  a 


fashion  that  will  allow  measurement  of  the  wing  loads. 


II.  Analytical  Development  -  Static 

General 

Prior  to  constructing  an  aeroelastic  wind  tunnel  model,  analysis 
must  be  performed  to  predict  the  behavior  of  the  model.  For  static 
characteristics,  this  includes  structural  deflection  and  wing 
divergence.  The  analysis  will  permit  the  model  to  be  designed  to 
demonstrate  the  effects  sought  as  well  as  protect  it  from  damage  due  to 
undesirable  deformations. 

The  following  section  will  summarize  the  assumptions  and  methods 
used  to  develop  the  relevant  equations  used  in  the  static  aeroelastic 
analysis.  As  much  as  possible,  the  development  will  produce  aeroelastic 
operators  after  the  fashion  of  Bisplinghoff  and  Ashley  (3:chap  3).  The 
study  will  proceed  in  steps  from  a  straight,  untapered  wing  to  a  general 
swept  wing.  The  swept  wing  is  charact eri zed  by  a  coupling  between 
structural  bending  and  twist.  The  upward  bending  of  an  aft  swept  wing 
results  in  a  reduction  in  the  angle  of  attack  in  the  streamwise 
direction  producing  a  negative  increment  of  lift.  However,  this 
negative  lift  effectively  opposes  further  nose  up  twist  of  the 
structure.  Consequently,  bending  of  a  forward  swept  wing  shifts  the 
center  of  pressure  of  the  aerodynamic  loads  outboard  while  bending  of  an 
aft  swept  wing  gives  an  inboard  shift.  Thus,  divergence  of  an  aft  swept 
wing  is  unlikely  while  control  reversal  is  possible.  The  opposite  is 
true  for  forward  swept  wings. 


The  development  to  follow  is  limited  to  a  slender  swept  wing  which 
can  be  treated  as  a  slender  beam  wherein  no  warping  of  the  transverse 
axis  is  permitted  (chordwise  elements  will  not  deform).  This  assumption 
permits  the  introduction  of  an  elastic  axis.  This  is  a  spanwise  line 
through  the  shear  centers  of  the  cross-sections  of  the  beam.  The  shear 
center  is  that  point  in  the  plane  of  the  section  at  which  a  shear  force 
can  be  applied  without  producing  a  twist  of  the  section  (3:160).  This 
assumption  further  allows  the  convenience  of  locating  the  bending 
reference  axis  (y)  along  the  elastic  axis.  Bending  deformation  will  be 
represented  by  h(y),  positive  upward,  and  twisting  by  (y),  positive 
nose  up.  These  deflections  are  considered  small  and  are  therefore 
perturbation  deformations  from  a  slightly  deformed  static  equilibrium 
state. 

For  the  specific  applications  considered  here,  it  was  assumed  that 
the  bending  and  torsional  stiffness  of  the  wing  structure  is  due 
entirely  to  thin,  laminated  composite  sheets  located  at  some  distance 
apart  (relative  to  their  thickness)  to  form  the  surface  of  the  constant 
depth  box  beam.  The  lamina  sheets  are  assumed  to  be  seperated  by  rigid 
vertical  webs.  Additional  stiffness  produced  by  such  other  elements  as 
shear  webs  are  not  considered.  A  plate  for  which  no  distance  exists 
between  beam  sheets,  violates  none  of  the  mathematics  entailed  in  the 
development.  In  order  to  determine  the  equivalent  bending  rigidity  (El) 
and  torsional  rigidity  (GJ),  the  Euler-Bernoulli  hypothesis  is  utilized. 
This  states  that  the  strain  due  to  bending  varies  linearly  from  the 
neutral  surface  of  the  box  beam.  This  neutral  or  reference  surface  is 
taken  as  the  geometric  middle  as  is  typical  in  laminate  plate  theory. 
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The  upper  and  lower  laminate  sheets  will  then  act  as  a  unit  to  provide 
the  stress-strain  relations,  assumed  to  be  linear. 

A  wing  with  partial  or  full  span  leading  or  trailing  edge  control 
surfaces  may  not  be  properly  considered  to  have  the  entire  planform 
serving  as  primary  structure.  These  control  surfaces  are  usually 
fastened  to  the  main  wing  structure  with  hinges  and  actuators  which  will 
not  contribute  prominently  to  the  rigidity.  Determination  of  the 
structural  properties  may  need  to  be  determined  with  a  reduced  planform 
from  that  used  for  the  aerodynamic  properties  to  which  the  control 
surfaces  play  a  crucial  role. 

Material  Properties 

The  composite  lamina  making  up  the  laminate  sheets  are  assumed  to 
be  orthotropic,  that  is  the  material  properties  are  different  in  three 
mutually  perpendicular  planes  of  symmetry  and  the  properties  are  a 
function  of  the  orientation  at  a  point  in  the  body.  Each  lamina  of  the 
box  beam  is  itself  orthotropic  with  respect  to  a  set  of  orthogonal 
principal  axes,  one  of  which  is  in  the  direction  of  the  lamina  fibers. 
The  axes  are  labled  1  and  2  (Figure  1)  and  lie  in  the  x-y  middle  plane 
of  the  wing  oriented  at  an  angle  8,  measured  positive  counterclockwise 
from  the  x-axis. 

Lamina  displacements  are  designated  as  u,  v,  and  w  in  the  x,  y,  and 
z  directions,  respectively,  and  are  functions  of  h  andoc. 


u(x ,y ) 

=  z  ot(y ) 

(  1) 

v(x,y) 

=  v0(y>  -  z[h'-  x  oc  ’  ] 

(2) 

w(x,y) 

=  h(y )  -  x  ot(y) 

(3) 
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where  the  (  )•  equates  to  the  differential  with  respect  to  y,  or 


d(  )/dy.  The  variable  vQ  represents  the  spanwise  stretching  of  the 
middle  surface.  Of  the  resulting  strains,  only  two  are  nonzero, 
consistent  with  the  Euler-Bernou 1 li  hypothesis. 


yy  =  v’  =  v0'  -  z(h"  -  xo«") 

(4) 

Xy  =  u*  =  2zoc* 

(5) 

The  constituiti ve  relations  between  the  inplane  or  membrane  stress 
and  strain  are  developed  by  Jones  (10:51)  where,  for  an  othrotropic 
material  (<?2Z  =  Tyz  =  T' zx  =  t  -  VzX  =  0),  in  wing  reference 
coordinates 


^xx 

On  012  016 

-  m 

&XX 

dyy 

= 

Qi2  Q22  026 

tyy 

^xy 

®16  ®26  ®66 

*xy 

It  will  be  seen  that  <*xx  and  Txy  will  play  no  part  in  the 
to  follow  and  their  terms  will  therefore  not  be  used.  The 
are  defined  as 


(6) 


de  velopment 
relevant  Q's 


Q22  =  U1  -  U2cos20  +  U3cos46  (7) 
Q26  =  ,5U2sin26  -  U3sin49  (8) 
Q66  =  U5  -  U3cos40  (9) 

where 

U1  =  [3Qn  +  3Q22  +2Q12  +  4Q66]/8  (10) 
U2  =  [Q-j  i  -  Q22]/2  (11) 
U3  =  [Qn  +  Q22  -  2Q12  -  4Q66]/8  (12) 
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U5  =  [Q11  +  °22  -  2Q12  *  4Q66]/8  (13) 

and 

Qn  =  E^O  - /*i2/*21>  (I1*) 

Qi2  =  21E1/(1  ~  /4\2/i,2\>  (15) 

Q22  =  E2/(  1  ~ (16) 

Q66  =  G12  (17) 


The  above  development  is  implemented  in  the  subroutine  CSTRUC  (Appendix 

A). 

Strain  Energy 

Strain  energy  is  defined  as  the  energy  stored  within  the  structure 
by  virtue  of  its  deformation.  As  a  result  of  the  Euler-Bernoul  1  i 
hypothesis,  a  strain  energy  functional  can  be  created  by  summing  the 
individual  strain  energies  of  each  lamina,  with  the  middle  surface  of 
the  box  beam  again  acting  as  the  reference  plane.  In  addition,  by 
assuming  small  deformations,  linear  equations  result.  Weisshaar  (15:39) 
demonstrates  that  the  strain  energy  functional,  or  strain  energy  density 
per  unit  volume  for  the  composite  box  beam,  can  be  written  as 

U(y)  =.5EI0(h")2  ♦  ,5S0(«")2  -  K0(h"ot*)  ♦  .5A22(v£)2  ♦  B^tv^cx') 

-  B22(v'0h”)  4  .5GJ0(<x’)2  (18) 

Eq  (18)  shows  how  bending  deformation  is  elastically  coupled  to 
torsional  deformation  by  the  parameter  KQ.  Coupling  occurs  between 
these  deformations  and  the  middle  surface  stretching  term  vQ(y). 
However,  this  latter  term  will  be  zero  if  the  middle  surface  is  also  the 


neutral  surface  for  bending.  This  occurs  when  the  upper  and  lower 


laminate  sheets  are  symmetrical  with  respect  to  the  middle  surface. 
This  condition  will  be  enforced  for  this  study.  Neglecting  the 
unnecessary  terms  then 


N 

EI0  =  c[SQ22(i)/3i^ 

i  =  1 
N 

0Jo  = 

i  =  1 
N 

K0  =  c[22Q26<‘>/«ll 

i  =  1 
N 

A22  =  c [ Qgg ( i )  t  ^  ] 
i  =  1 

N 

^22  =  c  ^  ®22  ^  ^  S  i  3 

i  =  1 

N 

B33  =  2c[2Q26(i)  *i] 


( 19) 

(20) 

(21) 

(22) 

(23) 

(24) 


where  N  is  the  total  number  of  plies  in  the  laminate.  /3  i  represents 
the  area  moment  of  inertia  about  the  middle  surface  of  a  strip  of 
material  of  thickness  ti  and  unit  width.  This  term  is  always  positive. 

i  j  is  the  first  moment  of  area  of  the  same  strip  about  the  middle 
surface.  This  term  is  positive  if  the  ply  area  centroid  is  above  the 
middle  surface  and  negative  otherwise. 


1*i 


1/3(tj3  +  3tizi2  +  3ti2zi) 


zi 


(25) 
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The  development  of  this  section  is  implemented  in  the  subroutine  CSTRUC 


(Appendix  A). 


Governing  Equations 


The  governing  equations  for  a  beam  of  uniform  cross-section  have 
been  derived  by  Weisshaar  (16:41-45)  using  the  strain  energy  functional 
previously  defined  and  the  principle  of  virtual  work.  The  equations  are 
coupled  by  the  parameter  K.  When  eliminating  the  middle  surface 
stretching  term  (vQ)  one  arrives  at 


p(y)  =  EIhlv  -  Kot’" 
t(y)  =  Kh'"  -  GJot  " 


where  p(y)  is  the  upward  distributed  load  (lift)  and  t(y)  is  the 
distributed  torque.  The  associated  boundary  conditions  for  the 


cantilever  wing  are,  at  y  =  0  (root). 


«(0>  =  0 


h(0)  =  h'(0)  =  0 


and  at  y  =  b  (tip),  where  b  is  the  semi -span 


GJ  ot '  -  KhM  =  T(b)  =  0  (torque)  (3D 

Elh"  -  Kot'  =  Mx(b)  =  0  (bending  moment)  (32) 

EIh,r*  -  Kot"  =  Vz(b)  =  0  (shear  force)  (33) 

For  the  nonuniform  beam  (nonuniform  chord  and  material  properties  along 

the  span),  these  equations  become 


t(y)  =  -[-Kh”  +  GJoc']'  ( 

The  boundary  conditions  for  this  case  are 

h(  0)  =  h'(0)  =  oc(0)  =  0  ( 

Mx(b)  =  Elh"  -  Koc*  =  0  ( 

Vx(b)  =  [Elh*  *  -  Koi']'  =  0  < 

T(b)  =  GJoc'  -  Kh"  =  0  ( 

the  bending  momemt,  shear  force,  and  torque,  respectively,  and  where 


El 

=  EI0  —  /  ^22 

(40) 

GJ 

=  GJ^  •  (B33 ^/^22 

(41) 

K 

=  Ko  ~  B22B33/A22 

(42) 

These  properties  are  computed  in  the  subroutine  CSTRUC  (Appendix  A). 

Since  eqs  (4  0)— (42)  are  dependent  upon  the  laminate  stacking 
sequence  and  lamina  fiber  orientation,  the  beam  may  be  tailored  for  the 
desired  bending-torsion  coupling  characteristics,  as  they  effect  the 
aeroelastic  behavior  of  the  wing. 

The  deflection  equations  in  terms  of  the  wing  geometry  and  other 
characteristics  as  derived  from  strip  theory  for  the  slender  wing  (see 
Figure  2)  in  which  the  reference  axis  and  the  elastic  axis  are 
considered  as  one  (2:475-489  and  17:6)  are 

p(y)  =  cc^qcos^A  +  qcaQcos2A(  oc  -  PtanA)  -  nw  (43) 

t(y)  =  qcec![cos2A  +  qc2cmaccos2A  -  nwd 

+  qcea  (oc  -  PtanA)cos  2A  (44) 
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where  c£  is  the  two-dimensional  lift  coefficient  for  the  wing  section 
perpendicular  to  the  reference  axis  for  a  rigid  wing,  aQ  is  the  two- 
dimensional  lift-curve  slope  for  this  section,  P=  h’  is  the  slope  of 
the  bending  deformation,  nw  is  the  distributed  inertia  load  per  unit 
length  of  the  wing,  with  c  and  e  as  defined  in  Figure  2. 

Weisshaar  (17:7-8)  details  how  eqs  (43)  and  (44)  can  be  simplified 
to  the  form 

«  +  aocj,  -  boce  =  -  f2  (45) 

where 

a  =  [(qcel2aocos2A0/GJ][(  1  -  ktanA)/(  1  -  kg)]  (46) 

b  =  [(qcl3a0cos2A,)/EI][  (tanA  -  g)/(1  -  kg)]  (47) 

and  where 

g  =  K/EI  (48) 

k  =  K/GJ  (49) 

the  nondimensiona 1  torsion  coupling  parameter  and  bending  coupling 
parameter,  respectively,  and 

f1  =  [(1  -  ktanA)/(1  -  kg )][—[!  ♦  ^ccmac/eci^ 

x  [{qcel2c£cos2A/GJ]  +  nwdl2/GJ]  (50) 

^2  =  "  tanA.)/(1  -  kg)  ][  (qcl^c^cos2A)/EI  -  nwl^/EI]  (51) 

and  where  d  is  the  distance  from  the  panel  line  of  centers  of  mass  to 

its  reference  axis,  measured  perpendicular  to  the  reference  axis  and 
positive  forward  (see  Figure  2).  If  the  change  of  variables 


15 


. 


7  =  i  -  y/i 


(52) 
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is  defined,  where  7j  =  1  is  the  root  of  the  wing,  then  the  boundary 
conditions  become 


<xg  (  7]  =  1)  =  0  (deflection) 

(53) 

r=  dh/dy  (.Tf  =  1)  =  0  (bending  slope) 

(54) 

a'e(7)  =  0)  =  0 

(55) 

oi^(0)  ♦  ac*e(0)  =  f ^ ( 0)  (tip  shear) 

(56) 

For  a  uniform 

planform  without  twist,  and  for  which  the 

pitch  attitude 

is  given,  the 

solution  to  eq  (45)  (17:8-9)  is 

txe(7?)  =  f2/b[1  -  f 3( Tp  )/f 3(  1 )] 

(57) 

where 

f3(7 v 

=  [4f  2/(9J*  2  +  f  2]e~2f?7 

+  e*’7?  [[(5?2  +  £  2)/(9f  2  +  $  2]cos^7p 
♦  [(3?  3  -f£2)/(9  ?2$  *  £  3Jsin£?7)] 

(58) 

and 

$  —  -.5(c  -j  +  c  2 ) 

(59) 

/  =  3  /2(c}  -  c2) 

(60) 

c1  =  [b/2  ♦  (b2/4  +  a3/27)1/2]1/3 

(61) 

c 2  =  (b/2  -  (b2/4  +  a3/27)1/2]1/3 

(62) 

The  deflection  equations  presented  in  this  section  must  not  be 
considered  as  exact.  Structural  modeling  has  been  applied  to  simplify 
the  formulations  for  ease  of  computation.  Careful  note  must  be  made  of 
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the  assumptions  made  herein  before  any  equation  is  used  for  a  specific 
application. 

Divergence 

Divergence  of  an  aerodynamic  surface  is  an  instability  in  which 
high  velocities  and  deflections  of  the  surface  create  aerodynamic  forces 
which  tend  to  increase  the  deflection.  While  aerodynamic  forces 
increase  with  airspeed,  structural  restoring  forces  are  constant. 
Therefore,  a  speed  may  exist  in  which  the  two  forces  are  in  balance,  and 
beyond  which  divergence  is  possible  and  will  likely  producing 
catastrophic  failure  of  the  structure.  This  speed  is  referred  to  as  the 
divergence  speed.  The  extremely  light  structures  found  in  World  War  I 
aeroplanes  (the  Fokker  D-8  as  an  example)  and  the  very  thin  wings  on 
early  supersonic  aircraft  were  particularly  susceptible  to  this 
phenomenon  and  wings  ripping  from  airframes  in  operation  was  not 
unknown.  Only  moderate  amounts  of  aft  sweep  are  sufficient  to  raise  the 
divergence  speed  to  the  extent  that  divergence  becomes  practically 
impossible.  Forward  sweep  of  even  moderate  amounts  can  produce 
divergence  at  relatively  low  airspeeds.  Composite  tailoring  can  alter 
these  basic  precepts. 

The  following  development  will  assume  a  straight  elastic  axis, 
permitting  bending  and  torsion  to  be  treated  seperately.  Diederich  and 
Budiansky  (4:10)  states  that  movement  of  the  elastic  axis  forward  on  an 
aft  swept  wing  can  raise  the  divergence  speed  for  low  angles  of  sweep 
but  has  little  effect  for  large  sweep  angles.  An  elastic  axis  forward 
of  the  aerodynamic  center  (a  supersonic  condition)  can  diverge  for  only 
moderate  to  large  angles  of  forward  sweep. 
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In  the  following  equations,  the  two  dimensional  lift-curve  slope 
for  zero  sweep  may  be  corrected  for  planform  effects  (4:6).  That  is 

aQ  =a0(A  =  0)[AR/(AR  ♦  4cosA>]  (63) 

where  AR  is  the  wing  aspect  ratio. 

Diederich  and  Budiansky  (4:14-16)  show  the  principal  equations  for 
the  wing  deflection  which  the  airloads  will  produce. 

p(y)  =  qca0cos2A(<x  -  h'tanA)  (64) 

t(y)  =  qceaocos2A(0C  -  h'tanA)  (65) 

For  a  uniform  chord  wing  with  constant  stiffness  properties,  the 
equations  of  equilibrium  for  the  cantilever  wing  are  (16:46-47  and  4:16- 
18) 

EIhiv  -  Kot"'  =  (qca0eos2A)  ( oC  -  h'tanA)  (66) 

GJot''  -  Kh"'  =  -(qcaQecos2A)  (oc.  -  h'tanA)  (67) 

After  removing  the  initial  load  of  the  undeflected  case  (3:312)  and 
where  c  is  measured  perpendicular  to  the  elastic  axis,  a  critical 
dynamic  pressure  (q)  at  the  divergence  speed  results. 

For  the  more  general  case  of  a  wing  with  uniform  properties  and 
constant  chord  with  bending  and  torsional  deflections  permitted, 
Diederich  and  Budiansky  (4:18-20;  16-18)  also  provides  the  solutions  to 
eqs  (66)  and  (67).  Weisshaar  (16:17)  provides  the  same  solution  as 
applied  to  a  composite  wing  as 

qD  =  [2.47(1  -  kg)/(cl3aQcos2A)  ][EI/ 

[(1  -  ktan  A)  /  (lGJ/eEI )  -  0.39(tanA-  g )  ]  ]  (68) 
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where  g  and  k  are  as  defined  previously.  For  equation  (68)  to  yield  a 
negative  value  of  qD,  the  velocity  must  be  imaginary,  implying  that 
divergence  is  not  possible.  Therefore,  negative  q^  is  desirable. 
Weisshaar  (16:3*0  also  demonstrates  how  eq  (68)  can  be  solved  for  the 
critical  sweep  angle,  or  that  which  will  make  divergence  virtually 
impossible. 

tanAcr  =  (g  +  2.56eEI  /  1 GJ )/(  1  +  2.56eg/l)  (69) 

in  which  g  can  be  set  equal  to  zero  for  a  metallic  wing.  is  solved 
for  in  CDIVRG  and  MDIVRG.  For  a  composite  wing,  tailoring  will  alter 
the  material  properties  and  thus  permit  divergence-free  sweep  angles, 
particularly  forward  sweep,  that  are  not  possible  with  conventional 
metal  structures. 

For  a  linearly  tapered  wing  with  geometrically  similar  cross- 
sections,  Diederich  and  Budiansky  (4:17-20)  again  provides  the  analysis 
with  the  assumption  that  the  structural  properties  (El,  GJ,  and  K)  vary 
as  the  fourth  power  of  the  chord  (a  distribution  representative  of 
typical  wing  structures).  To  accomplish  this,  the  spanwise  properties 
can  be  referenced  to  the  structural  root  properties  through  the  terms 

c  =  fcr  (70) 
f  =  1  -  7j  (1  -  A  )  (71) 

where  the  subscript  r  refers  to  a  root  parameter  and  A  is  the  taper 
ratio.  Therefore,  the  property  variation  is  expressed  as 


k 


=  f\  (74) 

This  approach  is  used  in  the  subroutine  CSTRUC  (Appendix  A).  For  a 
uniform  wing  the  order  of  f  can  be  set  equal  to  one  and  the  same 
equations  used  These  equations  are  models  only  and  entail  many 
assumptions.  Care  should  be  taken  in  applying  them. 

The  solution  of  the  divergence  problem  with  these  new  parameters 
yields  (15:55) 

qD  =  tGJr/(a0crl3cos2A)](l/er)t[K1(1  -  krgr)]/ 

[1  -  krtanA  -  K2(lGJr/erEIr)(tanA  -  'r)]J  (75) 

as  implemented  in  the  subroutine  CDIVRG  (Appendix  A).  For  a  metallic 
wing  (4:8)  subroutine  MDIVRG  (Appendix  A)  uses 

qD  =  GJr/(a0crl3cos2A)](l/ercr)[K1/ 

[1  -  (K2GJrl/EIrecr)tanA]]  (76) 

Weisshaar  (16:55)  updates  the  values  for  and  K2  given  by  Deiderich 
and  Budiansky  (4:9)  as  a  function  of  taper  ratio  (see  Table  I). 

Weisshaar  discusses  at  length  some  results  using  these  equations 
(16:18-24,  29-30).  He  concludes  that  taper  ratio  has  little  effect  on 
Acr.  Weisshaar  also  (18:5-9)  dicusses  the  optimization  of  VD  by  the 
variation  of  other  planform  parameters. 
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TABLE  I 


K  Parameters 

(used  in  Equations  75  and  76) 


A 

K1 

K2 

0.20 

2.83 

0.614 

0.50 

2.73 

0.497 

1 .00 

2.47 

0.390 

1 .50 

2.22 

0.326 

Eq  (75)  and  (76)  provide  a  simple  one  equation  solution  for  the 
divergence  dynamic  pressure  which  can  be  performed  on  a  hand  calculator. 
However,  they  are  not  often  used  and  a  much  more  accurate  method  exists. 
The  common  approach  to  finding  the  divergence  speed  is  to  perform  an 
eigenstructure  decomposition  on  the  sum  of  the  inverted  symmetric 
aerodynamic  matrix  and  the  flexibility  matrix  (see  next  section).  The 
inverse  of  the  real  part  of  the  largest  eigenvalue  of  the  matrix  is  the 
divergence  dynamic  pressure.  It  is  then  an  easy  matter  to  determine  the 
divergence  speed.  This  method,  almost  certainly  to  be  performed  on  a 
computer,  is  used  in  subroutine  DIVERG  (Appendix  A). 

When  eq  (76)  was  applied  to  the  same  wing  as  that  used  in  the 
matrix  approach  but  using  only  the  structural  properties  at  the  70% 
span,  the  predicted  divergence  speed  was  43%  lower.  This  suggests  that 
the  single  equation  method  is  much  more  conservative. 

Aerodynamic  Operator 

To  determine  the  divergence  speed  of  a  wing  the  air  loads  acting  on 
the  wing  must  be  known.  The  following  analysis  uses  the  well  known 
lifting  line  theory  method,  which  includes  induced  effects,  to  determine 
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these  loads.  The  assumptions  entailed  in  this  theory  tend  to 
overestimate  airloads  and  are  less  accurate  at  large  sweep  angles 
(15:17).  The  spanwise  centerline  of  the  wing  box  is  taken  as  a  straight 
line  and  the  Eu ler-Ber nou  1 1  i  hypothesis  is  again  enforced.  The  airloads 
are  assumed  to  act  on  segments  perpendicular  to  the  structural  reference 
axis  which  is  taken  to  be  at  the  midchord  of  the  wing  on  the  midplane  of 
the  laminate  box  beam  (Figure  3).  The  method  assumes  a  moderate  to  high 
aspect  ratio  wing  with  subsonic  flow  below  the  critical  value. 

Lifting  line  theory  involves  dividing  the  wing  into  chordwise 
strips  and  superimposing  constant  strength  horseshoe  votices  upon  these 
strips.  The  vortices  are  assumed  to  be  bound  to  the  wing  at  the  quarter 
chord  line  and  influences  are  computed  at  the  3/4  chord  line  at  the 


center  of  each  panel  (see  Figure  4).  Gray  and  Shenk  (6:22-39)  shows  the 
development  of  this  method  and  states  the  assumptions  therein  entailed: 
the  flow  is  potential  (boundary  layer  effects,  seperations,  and 
compressibility  are  neglected),  wing  thickness  is  small,  there  is  a 
stagnation  point  at  the  trailing  edge,  angles  of  attack  may  be 


considered  small,  the  wing  is  free  of  nacelles,  pylons,  etc.,  chordwise 
lines  are  considered  rigid,  and  the  airload  distribution  is  related  to 
the  undeformed  wing.  The  influence  of  each  vortex  upon  all  others 
provides  a  set  of  simultaneous  equations  that  can  be  solved  for  the 
incremental  lift  at  the  center  of  each  panel,  or  lift  per  unit  length 
p.j,  where  j  is  the  panel  index.  The  panel  lift  is  then  p^h,,  where  h  • 
is  the  panel  width.  A  standard  linear  expression  can  then  be  formulated 

1/q[  A±J]  {Pj)  =  {  ai)  (77) 
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where  q  is  the  dynamic  pressure  andot^  is  the  streamwise  angle  of 
attack,  positive  nose  up.  No  yaw  is  considered  in  this  analysis,  [A^] 
is  known  as  the  aerodynamic  influence  coefficient  (AIC)  matrix  and  may 
be  considered  as  simply  an  aerodynamic  operator.  It  is  a  geometrically 
derived  expression  for  the  vortex  influences,  and  can  be  expressed  as 

C A±J  D  =  (1/4a0)[S1]  (78) 

The  AIC  matrix  is  typically  determined  for  one  semi -span  only  (left  wing 
as  used  here).  When  a  control  surface  such  as  an  aileron  is  deflected 
on  the  wing  an  antisymmetrical  lift  distribution  will  result. 

The  downwash  matrix  [S^  is  strictly  dependent  upon  the  geometry  of 
the  vortices  as  they  relate  to  the  wing  planform  (Figure  4)  and  is 
expressed  as  (6:39) 

[S.|]  s  2/c[(1  +  sia0’L)/cos0rL  -  (1  +  sin0L)/cos0L 

+  (1  +  sin^J/cos^p  ^  ( 1  +  sin0R)/cos0R]  (79) 


where  the  upper  sign  is  used  for  the  symmetrical  loading  condition  and 
the  bottom  sign  for  the  antisymmetrical,  and  where 


sin#  = 

(  X  ^  “  Xy)/((x^  ”  X  y  )  + 

% 

-  yv 

♦  h)2)1/2 

(80) 

cos#  = 

(yD  "  yV  *  h)/((xD  -  xy) 

2  ♦ 

(Vd  - 

■  yv  +  h)2)172 

(81) 

sin0  = 

(x^  —  Xy)/((XQ  —  Xy)^  + 

(yD 

- 

-  h)2)1/2 

(82) 

COS0  = 

(yD  -  Yy  -  h)/((xD  -  XV) 

2  + 

(yD  - 

•  yv  -  h)2)1/2 

(83) 

The  approach  outlined  in  this  section  is  implemented  in  the 
subroutine  AER01  (Appendix  A). 
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The  centers  of  pressure  for  a  rigid  wing  and  a  flexible  wing  are 
calculated  in  subroutines  RIGROL  and  FLEXROL,  respectively  (see  Appendix 
A).  As  the  center  of  pressure  moves  outboard  an  increase  in  the  lift 
effectiveness  is  produced  that  promotes  divergence  as  a  consequence  of 
the  increased  bending  moment  at  the  wing  root  (18:9-12).  By  tailoring 
the  composite  lamina,  this  center  of  pressure  movement  can  be  controlled 
to  the  designer’s  advantage. 


Structural  Operator 

Gray  and  Shenk  (6:10)  detail  how  the  angle  of  attack  can  be 
broken  down  into 


{cxi}  =  (ocr)  +  {ots}  +  {occ} 


(8*0 


whereoc  is  the  rigid  body  angle  of  attack  or  that  which  is  attributed 


to  the  aircraft  attitude  and  built-in  twist  of  the  wing,  oc  is  due  to 

s 


structural  deformation  of  the  wing,  and  cxc  is  apparent  angle  of  attack 
variations  resulting  from  such  factors  as  wing  control  surface 
deflection  and  steady-state  angular  velocity  attributed  to  rolling 
moment  of  the  aircraft.  oc_  can  be  expressed  as  follows, 

3 


{ocs}  =  [Cij]{Pj} 


(85) 


for  which  [  C  i  j  ]  is  referred  to  as  the  flexibility  matrix  and  pj  is  as 
defined  prior  to  eq  (77).  The  development  for  this  matrix  is  given  by 
Gray  and  Shenk  (6:44-66)  for  a  metallic  wing  and  by  Weisshaar  (17:30-39) 
for  a  composite  wing.  The  geometry  parameters  are  the  same  in  both 
developments  and  are  shown  in  Figure  5.  The  following  matrices  are 
shared  by  both 
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cosA-|  0  0 

0  cos/^  0 


0  cosA^  0 


sinA^  0  0  0 

0  sinA2  0  0 

0  0  sinAj  0 


-  e -|tanA-[  0 


_ h,  -  egtanAg  0 

^cos'Ag  2 


2  jstfk 


h,  -  e-tanA,  ...  (88) 


e^/2tanA1 


e2/2tanA2 


d  ^  +d  ^ 


e^/2tan/\^ 


d  ^  +d  2^d  ^  d  2+d  ^ 


0 


0 


0 


0 


Cu]  = 


e1-f1 


e1"f1“f2 


e2“f2 


e1“fl— fl ~^3  e2“^2”^3  e3”^3  ® 


‘V  = 


,1/2  1111 


0  1/2  1  1  1 


0  0  1/2  1  1 


0  0  0  1/2  1 


•  i  •  » 


For  the  composite  wing 


tC.  J  =  [I  ]fh(g  -  tanV\)/EI(1  -  kg)  J  [  T  co&Aj  [  r  ,  ]  -  [  sin/\J  [  u  ]  ]  \  h  J 


+  [I0]rh(1  -  ktan/\)/GJ(  1  -  kg)  J  [  T  s  i  [  r  ^  3 

+  rcosAj[u]]rhJ 


This  equation  is  implemented  in  the  subroutine  CFLEX  (Appendix  A).  If  k 
and  g  were  set  equal  to  zero  the  equation  becomes  applicable  to  the 
metallic  wing  (5:65).  Eq  (91)  is  implemented  in  the  subroutine  MFLEX 
for  the  metallic  wing  case.  The  torsional  deformations  of  eq  (85)  are 
solved  for  in  subroutine  DEFLCT  (Appendix  A). 

By  substituting  eqs  (77)  and  (85)  into  (8^)  one  obtains 


tBij]{pj)  =  ( at r }  ♦  {<XC} 


where 


which  relates  loads  to  angle  of  attack.  For  a  symmetrical  maneuver 


(Pi)  =  CB  ij]-1{cXr)  (95) 

for  the  semi-span  computations,  and  simply  twice  this  for  the  total  lift 
case.  This  permits  the  computation  of  the  wing  lift-curve  slope  (16:21) 

CL  =  (2/qS)[1][BiJ-1{1}  (96) 

where  S  is  the  total  planform  area.  The  subroutines  RIGDROL  and  FLEXROL 
(Appendix  A)  apply  eqs  (95)  and  (96). 

Lateral  Control  Reversal 

Use  of  an  aileron  would  require  computation  of  the  AIC  matrix  for 
the  asymmetrical  lift  case.  Weisshaar  (17:22)  provides  the  equilibrium 
equation  for  an  aircraft  undergoing  steady-state  roll. 

1/q[AiJ(a)  :{Pj}  =  [CiJ3{pJ }  ♦  qtEjjK  6  }  +  Oc*/UH 

+  (Pb/2V){2yi/b)  (97) 

with  [Aij(a^]  as  the  asymmetrical  AIC  matrix.  The  first  term  on  the 
right  hand  side  of  eq  (97)  is  the  angle  of  attack  distribution  due  to 
structural  flexibility.  The  second  term  involves  the  change  in  pitching 
moment  of  wing  sections  due  to  the  aileron  deflection  producing  an 
apparent  change  in  angle  of  attack.  The  next  term  is  the  apparent 
change  in  angle  of  attack  due  only  to  the  control  deflection  as  a  result 
of  the  camber  change  of  the  mean  chord  line.  The  final  term  in  eq  (97) 
is  the  damping-in-roll  or  the  loss  in  lift  as  a  result  of  the  apparent 


angle  of  attack  change  as  a  consequence  of  the  rolling  moment,  which 
will  tend  to  resist  the  rolling  motion.  This  pitching  moment  is 

Ty  =  (qc2cm  )S  (98) 

O 

where  cm  is  the  section  pitching  moment  coefficient  due  to  control 

i 

deflection.  The  [ E ^  j  3  matrix  is  expressed  as  (16:44) 

[  E±  j  ]  =  [I0]rth(sinA)(tanA  -  g)]/[EI(1  -  kg)  ]  j  [  I0]Trhc2cmj  j 

♦  [IQ]r[h(cosA)(l  -  ktanA)  ]/[GJ(  1  -  kg)  ]  j[In]Trhc2cm  j 


where  [IQ]  was  defined  previously  in  eq  (91).  These  equations  are 
applied  in  the  subroutine  CAILRN  (Appendix  A). 

For  the  metallic  wing  (6:68),  subroutine  MAILRN  utilizes  the 
fol  lowing  form 

{<Xj}  =  [m  ]  [  2h/cosA]  [  1/EI]  {  M}  +  [t  ]  [  2h/cosA]  [  1/GJ]  { T)  (100) 


where  the  following  definitions  apply 


-sinA,/2 


[m]  = 


-sin/\2  -sinA^ 
-sinA.2/2  -sinA^ 

0  -sinA^/S 


-sinA^ 

-sinAjj/2 


•  •  • 


[t] 


cosA..|/2  cosA^  cosA^  cos A^ 

0  cosA2/2  cosA^  cosAji 

0  0  cosA.^/2  cosA^  ... 

0  0  0  cosA^/2  ... 


tM}  =  {[cos A] [r  1  ]  -  [sin  A][u]}  [L] 
{ T}  =  [{sinA][r2]  +  [cosA][u]}  [L] 


where  the  terms  of  {L}  are  derived  from 


4  =  Pihi 


(  102) 


(103) 

( 104) 


(105) 


(106) 


Solving  for  the  Pb/2V  term  in  eq  (97)  permits  an  evaluation  of  the 
effectiveness  of  the  aileron  in  producing  a  rolling  moment.  The 
deflection  of  the  aileron  and  the  flexibility  of  the  wing  result  in 
structural  deformation  that  effectively  reduce  the  resultant  rolling 
moment  with  increasing  airspeed  until  an  aileron  deflection  will  produce 
no  rolling  moment.  This  is  the  control  reversal  speed,  above  which  a 
change  in  control  sense  will  occur  with  a  control  input  in  one  direction 
producing  a  roll  in  the  opposite  direction.  Pb/2V  can  also  be  described 
as  the  helix  angle  described  by  the  wing  tip  during  a  roll.  A  negative 
helix  angle  indicates  a  reversed  control  surface.  Weisshaar  (16:23) 
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provides  a  convenient  per  radian  form  of  this  equation 


-[yihi][Bi1(a)]‘1{q[Eii]{V'}  ♦  Ud/iilV:) 
(Pb/2V)/S0  =  —  l-l—ll - -ll— - i  (107) 

[ y ihi ] [ Bi j ( a  5 ]~ 1 { 2y i/b } 

where 

{ i  i)  =  g0{  vm  do8) 

is  used  to  set  the  relative  deflections  of  adjacent  aileron  panels, 
permitting  segmented  ailerons.  Therefore  'f  normalized  to  the 
deflection  of  the  most  outboard  aileron  panel,  would  be  1.0  for  panels 
deflecting  identically,  or  0.5  for  segment  panels  deflecting  only  half 
as  much.  This  is  performed  in  subroutine  FLEXROL  (Appendix  A).  The 
case  of  a  rigid  wing  is  dealt  with  in  subroutine  RIGROL  wherein  [Cti] 

*  'J 

and  [Ejj]  are  zero. 
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Ill .  Analytical  Development  -  Dynamic 

General 

The  dynamic  aeroelastic  stability  characteristic  is  known  as 
flutter.  This  is  a  self-excited  oscillatory  instability  in  which  the 
conservative  structural  forces  (inertia  and  elasticity)  extract  energy 
from  the  airstream.  In  its  most  severe  form,  flutter  becomes  an 
oscillation  of  ever-increasing  magnitude  until  catastrophic  structural 
failure  occurs.  Many  degrees  of  freedom  of  the  structure  may  contribute 
to  the  instability,  among  them  structural  bending  (flexure),  torsion, 
and  control  surface  motion.  The  coupling  of  several  modes  of 
deformation  is  a  practical  element  of  flutter.  Although  flutter  may 
become  manifest  in  any  part  of  an  air  vehicle,  wing  flutter  alone  is  of 
interest  to  this  study. 

In  the  design  of  the  wind  tunnel  models  described  herein,  it  was 
desired  that  a  satisfactory  margin  exist  between  the  operating  speeds 
and  the  predicted  flutter  velocity.  For  the  parametric  study  upon  which 
this  project  is  based,  a  superficial  flutter  analysis  only  was  required 
as  dynamics  was  not  an  element  of  the  investigation.  Dr.  Weisshaar's 
CWINGF  program  (18)  was  used  to  predict  a  flutter  margin  of  greater  than 
100J  (see  Appendix  D).  Additionally,  in  an  effort  to  provide  ready-made 
and  simple  computer  codes  to  perform  quick  and  rudimentary  flutter 


predictions,  a  series  of  subroutines  was  prepared.  The  supporting 
analysis  for  these  codes  is  provided  in  this  section. 
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Dynamic  aeroelasticity  involves  the  interaction  of  aerodynamic, 


structural,  and  inertial  forces  denoted  by  the  symbols  CL  ,  ^  ,  and 


3?  ,  respectively.  A  forcing  function  may  act  through  one  or  more  of 


these  components.  Creating  appropriate  forms  of  the  operators  for  these 


forces  can  become  very  complex.  Apart  from  that  provided  in  the 


previous  section,  only  a  simplified  derivation  of  these  operators  will 


be  provided.  In  dynamic  analysis,  the  change  in  the  system  damping  is 


primarily  due  to  the  aerodynamics.  As  the  air  velocity  increases,  the 


rate  of  damping  of  some  of  the  modes  at  first  increases  and  then  may 


suddenly  decreases  rapidly  (5:160).  This  sudden  change  in  system 


damping  can  produce  flutter  with  a  surprisingly  rapid  onset. 


The  relationship  of  these  fundamental  operators  is  expressed  by  the 


equations  of  motion  (2:43)  where  the  operators  may  be  integral, 


matrices,  or  any  other  form. 


[  £  -  ?7l  -  CL  ]{q}  =  Qr 


(109) 


where  q  are  the  generalized  coordinates  for  the  degrees  of  freedom  used 


in  the  formulation  of  the  operators,  and  QD  are  the  generalized  forcing 


function.  The  mass  of  the  air  may  or  may  not  (the  in  vacuo  case)  be 


included  in  the  inertia  operator.  Only  the  homogeneous  (unforced), 


linear  form  of  this  equation,  will  be  dealt  with  here.  The  solution  as 


a  matrix  equation  is  typically  accomplished  by  forming  the  determinant 


(flutter  determinant)  and  solving  the  resulting  characteristic  equation. 


That  is, 


Its]  -  [m]  -  [a] I  =  0 


(110) 


W 


TOS" 


If  inertia  effects  are  disregarded,  the  determinant  discussed  in 
the  previous  section  results.  For  this  steady  formulation  the  unsteady 
aerodynamic  operator  may  be  used  with  evaluation  at  a  frequency  of  zero. 
The  solution  of  the  characteristic  equation  then  yields  a  series  of 
eigenvalues,  the  largest  of  which  corresponds  to  the  inverse  of  the 
divergence  dynamic  pressure.  Divergence,  a  static  phenomenon,  can  be 
considered  as  flutter  at  zero  frequency. 

The  eigenvalues  of  the  flutter  determinant  will  be  complex,  each 
representing  a  mode  of  deformation.  The  real  part  of  the  eigenvalue 
will  indicate  whether  the  mode  it  represents  is  stable  or  unstable.  A 
negative  real  part  is  stable,  with  the  magnitude  of  the  value  indicating 
the  amount  of  damping  present.  Conversely,  a  positive  real  part 
represents  an  instablity  and  implies  flutter.  A  zero  real  part  implies 
a  neutrally  stable  condition  for  which  a  zero  imaginary  part  represents 
divergence  and  a  non-zero  represents  flutter  (5:195). 

Fung  (5:205)  provides  some  practical  design  considerations  that  are 
very  meaningful  for  composites  wherein  torsional  and  flexural  (bending) 


rigidity  can  be  relatively  easily  tailored.  He  states  that,  in  general, 
when  torsional  rigidity  alone  is  increased,  flutter  speed  also 
increases.  However,  when  bending  rigidity  alone  is  varied,  only  a  small 
difference  in  the  flutter  speed  is  seen.  The  minimum  flutter  speed  will 
usually  occur  when  the  flexural  rigidity  becomes  so  large  that  the 
frequency  of  the  uncoupled  oscillation  is  equal  to  that  of  the  uncoupled 
torsional  oscillation.  Further  increase  in  this  rigidity  increases  the 
flutter  velocity. 
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Modal  Formulation 

Computation  is  much  simplified  by  placing  the  operators  in  modal 
form.  As  described  by  Meirovitch  (10:164),  this  is  done  by  first 
solving  for  the  system's  natural  frequencies  and  mode  shapes 
(eigenvectors).  Using  the  matrix  formulation  again,  the  system  is 
represented  by  the  dynamical  matrix  [D]  or 

[D]  =  [m][s]-1  (111) 

where  ts]  is  the  stiffness  or  the  inverse  of  the  flexibility  matrix. 
For  the  application  to  follow,  it  is  assumed  that  these  operators  have 
been  formulated  such  that  the  rigid  body  modes  (zero  eigenvalues)  have 
been  removed.  An  eigenstructure  decomposition  is  now  performed  on  [D]. 
The  form  of  the  eigenvectors  will  describe  the  mode  it  represents.  The 
individual  eigenvalues  are  the  inverse  of  the  squares  of  the 
corresponding  natural  frequency.  This  solution  for  the  natural 
frequencies  and  mode  shapes  is  done  in  subroutine  NFREQ  (appendix  A). 

It  is  desired  that  the  modal  mass  matrix  [M]  be  the  identity 
matrix.  This  presents  the  following  condition 

[U]-1[m][U]  =  [M]  =  [I]  (112) 

where  columns  of  [U]  are  the  normalized  eigenvectors  of  the  system,  in 
ascending  order,  each  multiplied  by  an  unknown  constant.  The  series  of 
eigenvector  multipliers  that  satisfy  this  condition  can  be  easily  be 
solved  for.  Applying  these  multipliers  then  produces  the  modal  matrix, 
[ U] .  When  operating  on  the  stiffness  matrix, 

t  U]_1 [ s ][ U]  =  TwJ  (113) 
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it  produces  a  diagonal  matrix  of  the  squares  of  the  natural  frequencies 
[w],  or  the  modal  stiffness  matrix.  By  eliminating  the  rigid  body  modes 
prior  to  the  modal  operation  it  is  ensured  that  [w]  is  nonsingular.  The 
modal  aerodynamics  matrix,  [A],  is  produced  in  a  like  manner  but 
posseses  no  particular  property.  This  calculation  is  carried  out  in 
subroutine  MODAL  (appendix  A). 

With  the  modal  form  of  the  aeroelastic  operators,  eq  ( 1 0 9 >  now 
becomes 

[ fwj  -  [I]  -  [A]] {q}  =  Qd  (114) 

If  a  periodic  temporal  behavior  is  assumed 

<U  =  %eii2t  (115> 

and  recognizing  that  the  mass  operator  is  associated  with  the  second 
derivative  of  the  displacements,  the  flutter  determinant  now  takes  on 
the  more  familiar  eigenstructure  form 

I  r  w  j  -  [A]  -n2[I]l  =  0  (116) 

where  fl  2  is  the  unknown  complex  eigenvalues  of  the  complete  system. 
Solution  Methods 

By  associating  the  eigenvalues  of  eq  (116)  with  the  frequency  uJ , 
the  equation  in  the  full  matrix  form  (no  external  excitation)  becomes 

C  T  w  J  -  [A]  +  2[I]]{q)  =  0  (117) 

A  structural  damping  term  is  arbitrarily  applied  to  the  structural 


operator 


(118) 
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[(1  +  ig) FwJ  -  [A]  ♦  u>2[I]}{q}  =  0 


where  g  is  the  required  structural  damping  for  a  stable  system.  By 


moving  the  structural  operator  to  the  right  hand  side  and  dividing 


through  by  the  square  of  the  frequency,  one  arrives  at  the  form  provided 


by  Weisshaar  (17:22). 


[(1/u>2)[A]  -  [ I] ] lq}  =  ((1+ig)/tt^2)rwJ{q} 


(119) 


This  can  be  solved  as  it  is  with  the  coefficient  on  the  right  hand  side 


serving  as  the  eigenvalue,  or  it  can  be  cast  in  the  more  familiar 


determinant  form  by  multiplying  through  by  the  inverse  of  the  stiffness 


matrix  and  subtracting  the  coefficient  to  the  left  hand  side. 


irwJ-1((1/a>2)[A]  -  [13)  -  (( 1+ig)/a)  2)[  I]  I  =  0 


(120) 


Solutions  of  the  flutter  determinant  involve  solving  for  the 


component  parts  with  a  selected  velocity  and  an  assumed  frequency  and 


then  performing  the  eigenvalue  decomposition.  The  frequency  for  the 


mode  being  followed  will  not  necessarily  match  that  which  was  initially 


selected  and  an  iteration  must  be  done  until  a  match  occurs.  A  good 


practice  is  to  start  at  zero  velocity  and  use  the  natural  frequency  of 


the  mode  to  be  followed.  This  operation  is  repeated  for  increasing 


velocities  using  the  final  matched  frequency  from  the  last  velocity  as 


the  initial  guess  for  the  next. 


Velocity  and  frequency  are  often  combined  into  one  factor  known  as 


the  reduced  frequency  or  Strouhal  number,  k. 


k  -.u)  cref/2V 


( 121) 
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where  cref  is  a  reference  chord  to  non-dimensional ize  the  equation.  The 
aerodynamic  operator  may  be  expressed  as  a  funtion  of  k  in  the  frequency 
domain.  Reduced  frequency  characterizes  the  variation  of  flow  with 
time,  or  more  precisely,  it  represents  the  ratio  of  the  characteristic 
length  of  the  body  to  the  wave  length  of  a  disturbance  (5:164). 

The  V-g  method  of  flutter  solution  entails  proceeding  as  described 
above  and  producing  a  plot  of  velocity  versus  damping  or  a  V-g  plot. 
Each  mode  can  be  followed  and  the  known  structural  damping  can  be 
represented  by  a  line.  The  velocity  at  which  the  derived  damping  rises 
above  this  available  damping  for  the  first  time  for  any  mode  is  the 
flutter  velocity.  This  represents  a  deficieny  in  damping.  If  the  true 
available  structural  damping  is  not  known  then  assuming  zero  damping 
will  represent  a  conservative  approximation  and  then  the  first  crossing 
of  the  damping  axis  by  any  mode  is  the  flutter  velocity.  This  method  is 
employed  in  the  subroutine  VGFLUTR  (Appendix  A).  The  k-method  is  done 
in  the  same  way  with  k  now  serving  as  the  principle  variable  (subroutine 
KFLUTR) . 

The  inertial  operator  in  eq  (116)  can  be  cast  into  the  s-plane  for 
the  p-k  method  of  flutter  solution  by  assuming  a  response 

qA  =  q0ept  (122) 

Proceeding  as  before,  the  flutter  determinant  now  becomes 

I r wj  -  [A]  +  P2C I] !  =  0  (123) 

The  eigenvalue  p  is  assumed  to  have  the  form 


p  =  S'  +  i  u) 


(124) 
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where  y  in  this  case  is  the  overall  system  damping.  The  solution 
technique  is  as  described  before  but  with  p  being  plotted  in  the  s- 
plane.  When  the  real  part  of  p  enters  the  right-half  plane  flutter  will 
occur,  this  representing  a  system  instability.  Again,  k  is  the 
principle  variable.  This  approach  is  employed  in  the  subroutine 
PKFLUTR. 

All  of  the  methods  outlined  in  this  section  are  used  in  the  main 
flutter  computation  program  FLUTR  (Appendix  A). 

Simplified  Operator  Derivations 

Formulations  of  the  aeroelastic  operators  can  be  extremely  complex. 
Fung  provides  a  much  simplified  2-dimensional  model  which  may  be  used  as 
a  typical  section,  normally  solved  at  the  70S  chord,  or  at  a  number  of 
node  points  across  the  span.  Camber  and  thickness  effects  are  neglected 
and  incompressible  flow  is  assumed.  With  these  assumptions,  the  section 
equation  of  motion  (5:212)  becomes 

m(2V/c)2h  +  S(2V/c)2<*  +  ma>2h  .  _M(T)  +  p (T)  (125) 

s(2v/c)2h  +  ia,(2v/c)2ci  ♦  i«y*2cc  =  nr)  +  t( r )  (126) 

where 

S  =  f  r  dm  (127) 

I  «.  =  f  r2  dm  (128) 

S  is  the  wing  static  moment  about  the  elastic  axis,  1^ is  the  wing  mass 
moment  of  inertia  about  the  elastic  axis,  positive  aft,  u)h  is  the 
uncoupled  natural  frequency  of  bending,  is  the  uncoupled  natural 
frequency  of  torsion,  m  is  the  wing  mass,  and  Y  is  a  nondimensional ized 
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time,  or 


r  =  (2V/c)t  ( 129) 

Again  using  the  reduced  frequency  and  assuming  a  periodic  response,  the 
unforced  equations  of  motion  reduce  to 

2M(7/)eikr//rcV2  =  -  k2[(2/c)h0  -  ah*0]  +  ikocQ 

+  2C[oCQ  +  i(2k/c)h0  +  ik(0.5  -  ah)otQ]  ( 130) 
4T(7)eik'>//’rc2V2  =  2C(0.5  +  ah)[otQ  +  i(2k/c)hQ  ♦  ik(0.5  -  ah)oCQ] 

-  k2ah[(2/c)h0  -  ahocQ]  -  ik(0.5  -  ah)otQ  +  (k2/8)0Co  (131) 

where  ah  is  the  distance  between  the  midchord  and  the  elastic  axis.  C 
is  known  as  the  Theodorsen's  function  given  as 

C  =  H1/(H1  +  iH0)  (132) 

(5:214)  where  H1  and  HQ  are  Hankel  functions  of  k.  C  may  be 
approximated  for  k  less  than  0.5  as 

S  =  1  -  0.165/(1  -  i0.0455/k)  -  0.335/(1-  i0.3/k)  (133) 

By  employing  the  following  definitions 

/I  =  4m//,yc2  (134) 

=  2S/mc  (135) 

rx  =  (I*  /mb2) 1/2  (136) 

where^  is  called  the  mass  ratio,  x^  is  the  distance  between  the 
section  center  of  mass  and  the  aerodynamic  chord  in  semi-shords,  and  rfc 
is  the  radius  of  gyration  about  the  elastic  axis  is  semi-chords,  the 
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equations  of  motion  can  be  simplified  further  and  cast  in  matrix  form  as 


Em] {q} 


~/f  "  ft 


(137) 


[s]  = 


0 


(138) 


-1  +  i2C/k 


ah  +  25/k2  +  i/k  +  i2C(0.5  -  ah)/k 


ta]  =  ah  -  i2C(0.5  +ah)/k  -1/8  -  a£  ♦  i(0.5  -  ah)/k 


-  i2C( 0. 5  +  ah ) [  1  +  ik(0.5  -  ah)]/k‘ 


(139) 


When  these  operators  are  used  for  a  series  of  sections  across  a  span, 


tri-diagonal  forms  result.  These  matrices  are  created  in  subroutine 


FUNG  (Appendix  A). 


r>  v 


mrnmmmmmmmmmimmmmmMmm 


mnmnn 


ruvwvwnnruv 


IV.  Computer  Model 


General 

To  provide  a  means  for  predicting  the  static  aeroelastic 
characteristics  of  the  various  planform  and  control  surface 
configurations  to  be  tested,  the  CWINGS  computer  program  written  by  Dr. 
Weisshaar  has  been  adapted  as  the  basis  for  the  analytical  models.  This 
code  provided  a  managable  and  cost  effective  means  for  performing  static 
aeroelastic  predictions  and  model  design.  This  program  has  been  reduced 
to  its  component  parts  and  modified  to  meet  the  particular  needs  of  this 
project,  with  additional  coding  written  to  perform  automated 
implementation  for  optimal  design  for  the  constraints  of  each  individual 
testing  circumstance.  The  listing  of  this  revised  static  aeroelastic 
computer  program,  COMPSTAT  (Composite  Static)  is  provided  in  Appendix  B 
and  uses  the  many  of  the  subroutines  provided  in  Appendix  A. 

The  results  of  a  parametric  analysis  performed  with  the  COMPSTAT 
program  are  provided  in  Table  II.  This  table  gives  results  for  a  number 
of  alterations  to  the  test  planform  and  composite  material  described  in 
the  next  section  Only  one  planform  was  used  in  the  experimental 
portion  of  this  research  and  so  only  the  laminate  design  process  will  be 
addressed  henceforth. 


Optimization 

As  discussed  in  the  next  section,  the  composite  plates  used  in  the 
experiment  were  designed  using  standard  iteration  practices.  To 
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TABLE  II 


Parametric  Variation  Examples 
(Layup  1,  Case  1,  1000  ft  PA) 


investigate  the  possibility  of  automating  this  design  process,  the  ADS 
(Automated  Design  Synthesis,  see  Reference  14)  optimization  program 
resident  on  the  AFIT  computer  system  was  used.  It  was  believed  that  a 
layup  schedule  that  better  met  the  requirements  of  the  experiment  could 
be  designed  in  this  way  without  the  strictures  of  the  standard  design 
practice. 

A  layup  requiring  each  ply  to  be  rotated  to  different  orientations, 
as  ADS  would  produce  unless  instructed  to  do  otherwise,  would 
significantly  complicate  the  fabrication  process  and  so  may  not  be 
desirable  in  practice.  Machine  layup  may  not  have  this  difficulty.  The 
designer  may  wish  to  use  the  optimization  layup  as  a  starting  point 
only,  rounding  off  the  orientations  to  the  nearest  5  deg  rotation  and 
seeing  how  this  effects  the  results. 

Each  plate  stacking  sequence  provides  different  material 
characteristics  as  seen  in  variations  in  reversal,  divergence,  and 
flutter  speeds  for  the  same  wing  geometry.  The  many  laminates  analyzed 
were  subject  to  the  following  criteria: 

a.  Predicted  reversal  speed  was  sought  below  150  miles  per  hour 
(mph),  and  preferably  around  100  mph.  This  permitted  50  mph  or  more 
margin  from  the  maximum  wind  tunnel  velocity  of  200  mph  to  allow  for 


errors  in  the  method  and  the  unknown  stiffening  of  the  plates  due  to  the 


outer  shape  and  covering  (see  Section  V). 


b.  Divergence  speed  was  sought  at  least  201  above  the  predicted 


reversal  speed.  If  this  speed  was  estimated  to  be  within  the  range  of 


the  wind  tunnel,  a  check  of  this  prediction  was  then  possible. 
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c.  Flutter  speed  was  to  be  at  least  50%  above  the  maximum 
tunnel  speed. 

d.  The  difference  between  the  predicted  reversal  speeds  for  the 
three  laminate  orientations  was  to  be  at  least  10  mph  to  ensure  that 
instrumentation  could  resolve  the  difference.  The  reversal  speed  was  to 
be  a  continuously  increasing  or  decreasing  relationship  with  laminate 
rotation  rather  than  parabolic  for  the  rotation  range  desired.  This  was 
to  ensured  that  each  reversal  speed  was  widely  different. 

e.  A  single  plate  with  the  90  degree  plies  along  the  reference 
axis  was  desired.  It  was  also  desired  that  the  other  laminates  be  less 
than  +20  degrees  off  of  this  orientation  for  a  more  practically 
representative  model.  Automated  optimization  of  the  layup  schedule 
would  not  likely  produce  plies  oriented  in  this  manner  unless 
specifically  instructed  to  do  so. 

Reversal  within  these  constraints  was  sought  for  a  full  span 
flaperon.  The  flaperon  had  a  cut  perpendicular  to  the  "hinge"  line  at 
40X  span  creating  a  seperate  flap  and  aileron.  If  reversal  of  the 
flaperon  (aileron  and  flap  deflected  equal  amounts)  could  not  be 
demonstrated  within  the  speed  range  of  the  wind  tunnel,  reversal  of 
either  the  flap  or  aileron  alone  was  sought. 

ADS  allows  the  selection  of  strategy,  optimizer,  and  one 
dimensional  search  methods  dependent  upon  the  constraints  on  the 
objective  function  to  be  minimized.  The  layup  problem  involves  linear 
constraints  so  a  sequential  quadratic  programming  strategy  was  used  with 
the  method  of  feasible  directions  for  constrained  minimization  as  the 
optimizer,  and  polynomial  interpolation  as  the  one  dimensional  search. 


V.  Experimental  Apparatus 


Composite  Plates 

The  composite  plates  that  form  the  structure  of  the  wing  models 
were  fashioned  from  Hercules  AS4-3501-6  graphite  fibers  in  a  resin 
matrix.  This  is  an  industry  standard  in  carbon-carbon  material.  The 
plate  layups  were  designed  using  accepted  practices  applied  to  the 
COMPSTAT  computer  code  aid  constraints  discussed  in  the  previous 
section.  Analysis  concentrated  on  a  32  ply  laminate  as  a  result  of 
AFWAL  experience.  The  plates  were  designed  with  two  identical  16  ply 
stacking  sequences  symmetric  about  the  mid-plane  of  the  plate.  The 
stacking  entailed  the  distribution  of  plies  with  the  primary  fiber  axis 
oriented  along  the  reference  axis  of  the  wing  and  with  additional  plies 
at  45  degrees  forward  and  aft  of  the  reference  axis.  Each  model 
differed  by  the  rotation  of  this  entire  stack  forward  or  aft  of  this 
primary  orientation.  The  ply  orientations  utilized  are  typical  for  such 
applications  and  were  used  only  for  this  reason.  Another  typical 
practice  adopted  was  to  maintain  an  equal  number  of  forward  and  aft  45 
degree  plies. 

The  following  results  were  found  during  design  iterations  for  the 
test  planform  and  may  prove  helpful  for  future  applications. 

a.  Additional  plies  tend  to  stiffen  the  plate,  increasing 
divergence  and  reversal  speeds. 

b.  For  an  aft  swept  wing,  additional  forward  rotated  plies  tend 


to  stiffen  the  plate. 


c.  Placing  the  rotated  plies  as  outside  layers  of  the  laminate 
tends  to  increase  the  divergence  speed. 

d.  Placing  the  rotated  plies  as  outside  layers  of  the  laminate 
tends  to  decrease  the  reversal  speed  for  laminate  rotations  aft  of  the 
elastic  axis,  and  increase  it  for  forward  rotations. 

e.  Rotation  of  the  laminate  forward  of  the  elastic  axis  tends 
to  increase  the  divergence  speed. 

Results  of  this  analysis  for  a  number  of  typical  laminates  and 
using  the  material  properties  given  in  Appendix  D  is  provided  in  Figure 
7  for  the  wing  plate  shown  in  Figure  6  and  characteristics  specified  in 
Table  III.  The  stacking  sequences  for  the  laminates  are  provided  in 
Table  IV.  A  finer  breakdown  of  plies  (groups  of  two  rather  than  four, 
or  reversing  signs)  in  the  stack  was  found  to  produce  results  very 
similar  to  the  more  basic  laminates  shown.  Based  upon  these  results, 
three  composite  plates  were  fabricated  with  the  stacking  sequence  and 
laminate  orientations  given  in  Table  V.  The  predicted  static  response 
for  each  control  surface  for  this  optimum  laminate  is  shown  in  Figure  8- 
11.  This  analysis  was  performed  with  manufacturer-supplied  material 
properties  which  varied  slightly  from  the  values  used  to  compare  results 
with  tunnel  data.  The  peculiar  result  of  the  flap  reversal  occurring  at 
a  lower  speed  than  the  aileron  reversal  is  intuitively  incorrect,  the 
root  deflecting  less  by  virtue  of  the  clamped  boundary  condition.  The 
implications  of  this  result  are  expanded  upon  in  a  later  section  of  the 
thesi s . 

Each  plate  was  layed  up  by  hand  with  curing  and  finishing  by 
standard  means.  An  internal  stress  in  the  plates  was  discovered  during 


Figure  6.  Wing  Plate  Planform 


TABLE  III 


Test  Planform  Characteristics 

(half-span  dimensions) 


section 
area 

semi-span 

semi-span  along  reference  axis 
reference  axis 
aerodynamic  centers 
aerodynamic  chord  root  chord 
structural  root  chord 
box  beam  structural  root  chord 
aerodynamic  tip  chord 
structural  tip  chord 
taper  ratio 
aspect  ratio 
reference  axis  (mid-chord)  sweep 
box  beam  reference  axis  sweep 
leading  edge  sweep 
trailing  edge  sweep 
aileron/flap  taper  ratio 
aileron/flap  chord 


10%  thick  symmetric 
1012.5  sq  inches 
45.0  inches 

47.4  inches 
at  mid-chord 

at  quarter-chords 

37.5  inches 
36.13  inches 

28.25  inches 

7.5  inches 

7.25  inches 
0.2 

0.4 

18.4  degrees 

21 .5  degrees 
33.7  degrees 
0.0  degrees 
0.2 

20%  of  section  chord 
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Table  IV 


Analysis  Layup  Schedules 


Ply 

Orientation  (deg.) 

Ply 

No. 

Layup 

1 

Layup 

2 

Layup 

3 

Layup 

4 

Layup 

5 

Layup 

6 

1 

90 

90 

90 

45 

45 

45 

2 

90 

90 

90 

135 

135 

135 

3 

90 

90 

90 

45 

45 

45 

90 

90 

90 

135 

135 

135 

90 

45 

45 

45 

90 

90 

90 

135 

135 

135 

90 

90 

90 

45 

45 

45 

90 

90 

8 

90 

135 

135 

135 

90 

90 

mm 

45 

45 

90 

90 

90 

45 

135 

135 

90 

90 

135 

45 

45 

90 

90 

45 

135 

135 

90 

90 

90 

135 

45 

90 

45 

90 

45 

90 

135 

90 

135 

90 

135 

90 

45 

90 

45 

90 

45 

90 

135 

90 

135 

90 

135 

90 

-  mid-plane  - 

bottom  16  plies  mirror  image  of  top 


(see  Figure  1  for  definition  of  ply  orientation) 


LAMINATE  ROTATION  (DEGREES) 


Table  V 


Wing  Plate  Layup  Schedules 


LAMINATE  ROTATION  (DEGREES) 


Pb/2V  RATIO 


LAMINATE  ORTATION  (DEGREES) 


LAMINATE  ROTATION  (DEGREES) 


cutting  with  a  rotary  diamond  saw.  Such  an  internal  stress  is  not 
uncommon,  being  produced  during  the  cure  when  the  carbon  fibers  and  the 
epoxy  matrix  expand  and  shrink  slightly,  respectively.  This  stress 
could  be  seen  in  narrow  samples  of  the  plate  which  bowed  along  an  axis 
parallel  to  the  90  degree  plies.  The  final  large  plates,  when  placed  in 
the  experimental  cantilever  mount,  showed  an  unloaded  deformation  less 
than  the  thickness  of  the  plate  for  the  full  span.  The  loads  to  which 
these  plates  were  subjected  are  many  orders  of  magnitudes  greater  than 
this  internal  stress  and  so  the  latter  was  ignored.  Each  plate  was 
subjected  to  a  C-Scan  to  determine  the  extent  of  voids  or  distorted 
fibers  within  the  laminate.  This  test  indicated  sound  layups. 

Documentation  indicates  that  material  properties  for  composite 
materials  can  vary  various  amounts  even  for  specimens  taken  from  the 
same  production  lot.  It  was  found  that  the  analytical  methods  used  to 
determine  the  optimum  laminate  was  highly  sensitive  to  these  minor 
variations,  producing  variations  in  reversal  speeds  of  as  much  as  1 5% 
(see  Table  VI).  Because  of  this,  special  specimens  were  produced  using 
the  same  production  lot  composite  material  as  that  used  in  the  wing 
plates.  These  specimens  were  subjected  to  tensile  tests.  An  average  of 
the  results  of  these  tests  were  then  used  to  more  precisely  predict  the 
aeroelastic  characteristics  of  the  models  and  were  used  in  the  final 
predictions  compared  with  wind  tunnel  data.  The  results  of  these  tests 
and  are  provided  in  Appendix  D. 

Wing  Models 

The  wing  planform  was  specified  by  AFWAL  and  represents  a  typical 
configuration  planned  to  be  used  in  the  parametric  study.  The  size  of 


TABLE  VI 


Sensitivity  Analysis  Results 
(Layup  1,  Case  1,  6  panel  outboard  aileron,  1000  ft  PA) 


(all  speeds  MPH) 


Condition 

VD 

A  % 

VR 

A% 

Normal  (ailerons) 

161 

- 

118 

- 

E1  increased  1 0% 

162 

+  1 

121 

+  3 

decreased  10% 

161 

0 

116 

-2 

E£  increased  10% 

162 

+  1 

118 

0 

decreased  10% 

161 

0 

118 

0 

/f  12  increased  10% 

161 

0 

118 

0 

decreased  10% 

162 

+  1 

118 

0 

increased  10% 

169 

+5 

121 

+  3 

decreased  10% 

154 

-4 

115 

-3 

ply  thickness  increased  10% 

186 

+  16 

136 

+  15 

decreased  10% 

138 

-14 

101 

-14 

c-,  /c,  increased  10% 
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the  model  was  dictated  by  the  diaensions  of  the  5-foot  test  sectien  of 
the  AFIT  wind  tunnel.  Only  half-span  models  were  constructed  as  this 
was  all  that  was  necessary  to  illustrate  the  phenomena  being 
investigated  and  permitted  a  larger  model  to  be  used  in  the  wind  tunnel. 

The  half-span  wings  had  an  aft-mounted  flap  and  aileroa  attached  to 
the  parent  plate  by  small,  evenly  spaced  3/32  inoh  steel  brackets,  two 
for  the  flap  and  three  for  the  aileron  (see  Figure  12).  A  series  of 
bent  brackets  were  fabricated  to  permit  orientation  of  the  surfaces, 
seperately  or  together  as  a  flaperon,  at  various  deflection  angles.  The 
brackets  were  fasteaed  to  the  plates  by  small  screws  and  nuts.  Two 
brackets  were  used  at  each  loaation,  top  and  bottom  of  the  plate,  to 
avoid  damage  to  the  plate  and  thus  provide  sufficient  bending  strength 
against  the  control  surface  air  loads.  The  depressions  in  the  covering 
material  required  for  installation  and  removal  of  the  brackets  were 
covered  with  tape  during  wind  tunnel  tests.  By  using  these  discrete, 
widely  seperated  brackets,  added  bending  or  torsional  stiffness  was 
avoided  without  applying  appreciable  masses  that  could  effect  wing 
flutter.  Control  surface  roll-up  (the  deflection  of  a  portion  of  the 
control  surface  toward  neutral  under  air  loads  at  locations  away  from 
the  actuator  restraint)  was  also  reduced. 

The  wing  and  control  surfaces  were  covered  with  Dow  2.0  lbm/ft^ 
blue  Insulation  styrofoam  shaped  to  a  NACA  0010  symmetrical  airfoil. 
This  foam  was  attached  to  the  plate  with  a  flexible  rubber-like  contact 
cement  that  permitted  small  displacement  of  the  foam  relative  to  the 
plate  while  still  transmitting  the  air  loads  to  the  plate.  A  thin, 
heat-shrunk,  flexible  outer  skin  of  aircraft-grade  Dacron  fabric  with 


Figure  12.  Control  Surface  Attachment  Brackets  and  Tip  Restraint 


three  lightly  sanded  coats  of  latex  paint  provided  a  smooth  surface  for 
the  models,  adhered  the  fabric  to  the  foam,  ensuring  transmission  of  the 
airloads  without  fabric  puckering,  and  protected  the  i'oam  from  damage 
(Figure  13).  The  models  were  still  delicate  and  the  surface  could  be 
easily  dented.  Leading  and  trailing  edges  where  the  plate  and  foam  met 
were  sealed  by  this  outer  skin.  Trailing  edges  had  balsa  inserts 
because  the  syrofoam  could  not  be  worked  to  a  point  without  breakage. 
Due  to  the  press  of  time,  the  Case  2  plate  was  not  covered  so  the  wind 
tunnel  tests  proceeded  with  the  Case  1  and  Case  3  models  only.  An 
uncovered  composite  plate  with  control  surfaces  weighed  10.2  lbs  and  a 
final  covered  model  13.75  lbs. 

To  reduce  the  bending  stiffness  associated  with  the  material  added 
to  the  plates,  five  equally-spaced  chordwise  slices  were  made  in  both 
the  upper  and  lower  wing  surfaces.  Slices  were  made  along  the 
aerodynamic  chords  rather  than  structural  chords  (perpendicular  to  the 
elastic  axis  or  mid-chord  line)  for  the  purpose  of  smooth  air  flow.  It 
was  not  felt  that  this  slight  rotation  from  the  optimal  structural 
orientation  would  reduce  the  effectiveness  of  the  slices.  These  slices 
were  made  down  to  the  plate  surface  with  an  approximately  3/8  inch  wide 
gap  being  created.  This  gap  was  then  filled  with  a  soft  foam  rubber  to 
the  surface  of  the  wing.  The  Dacron  fabric  covered  this  foam  rubber  but 
was  slit  to  allow  for  deformation  to  occur  at  the  slices.  The  gap 
between  the  main  wing  model  and  the  control  surfaces  were  covered  with 
tape. 

To  determine  the  optimum  number  of  these  slices  to  be  made,  a  test 
specimen  was  prepared  using  scrap  material  from  the  wing  composite 


plate.  This  specimen  was  12  inches  wide  and  36  inches  long  and  had  the 
90  degree  plies  along  the  36  inch  dimension.  This  specimen  was 
subjected  to  an  incrementally  increasing  bending  load  of  0-10  kg  applied 
at  the  tip.  The  plate  was  then  covered  with  the  an  eliptical  airfoil 
shape  and  covering  material  as  used  for  the  models.  The  paint  treatment 
for  the  fabric  was  not  done,  this  being  decided  upon  only  after  the 
specimen  testing.  The  loading  was  then  repeated  and  the  tip  deflection 
measured.  This  procedure  was  repeated  several  times  with  more  slices 
made  In  the  plate  each  time  in  an  attempt  to  find  the  minimum  number  of 
slices  that  provided  a  bending  deflection  that  most  closely  matched  that 
of  the  strip  without  covering  (see  Figure  1*0.  Only  very  slight 
stiffening  of  the  specimen  with  the  addition  of  the  covering  material 
was  seen,  amounting  to  only  4$  with  considerable  scatter  in  the 
deflection  data  as  slices  were  introduced.  In  light  of  these  results  and 
the  unknown  stiffening  to  be  added  with  the  paint  treatment,  an  average 
of  5  slices  was  selected  for  the  tunnel  models. 

Instrumentation 

A  bifurcated  model  mount  and  loads  balance  was  constructed 
utilizing  four  uniaxial  strain  gages,  two  for  each  side  of  the  two 
mounting  arms  for  redundancy  and  averaging  of  measured  loads  (see  Figure 
15).  Thw  bifurcated  nature  of  the  balance  permitted  a  more  durable 
mount  and  measurement  of  the  resultant  normal  wing  lift  even  under  a 
twisting  couiple.  The  dimensions  and  material  of  the  cantilever  balance 
arms  were  dictated  by  the  predicted  maximum  load  on  the  wing.  A 
calibration  of  the  balance  was  performed  by  placing  the  mount  horizontal 
and  hanging  dead  weights  in  turn  on  each  arm.  The  procedure  was 
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repeated  with  the  balance  reversed.  The  wing  normal  lift  force  was  the 
only  means  of  measuring  control  effectiveness.  During  the  wind  tunnel 
tests  only  strain  was  used  as  a  measure  of  the  lift  force  and  the 
calibration  used  to  permit  an  order-of-magnitude  comparison  with 
analytically  predicted  loads.  No  corrections  were  made  to  this  lift, 
assuming  all  errors  effected  each  model  and  configuration  identically. 

As  a  precaution  in  case  of  divergence  or  flutter,  each  wing  model 
was  tethered  within  the  tunnel  with  two  parachute  line  bungee  chords 
attached  at  the  wing  tip  and  anchored  to  the  tunnel  wall,  (Figure  12) 
and  with  lengths  restricting  the  model  from  stricking  the  tunnel  wall. 

Wind  Tunnel  Installation 

Each  model  was  suspended  from  the  ceiling  of  the  Air  Force 
Institute  of  Technology  (AFIT)  5-foot  subsonic  wind  tunnel  by  the 
bifurcated  strain  gage  balance  to  measure  the  lift  force  on  the  wing. 
The  balance  was  mounted  to  a  1/2  inch  thick  aluminum  plate  that  abutted 
the  walls  of  the  tunnel  and  the  combination  held  in  place  by  four  bolts. 
The  balance  was  seaured  to  this  plate  by  six  bolts  screwed  into  tapped 
steel  bushings  press-fit  into  the  plate  and  installed  in  arcs  to  permit 
varied  orientation  of  the  balance.  The  bolt  opposite  the  wing  midchord 
axis  served  as  a  pivot,  passing  into  a  bearing  assembly  mounted  within  a 
tunnel  hatch  opposite.  This  balance  was  fastened  to  a  flange,  which  was 
an  integral  part  of  the  wing  plate  (Figure  13)*  by  top  and  bottom  metal 
strips  that  ran  the  full  length  of  the  root  chord.  These  strips  served 
to  distribute  root  stress  concentrations  and  avoid  potential  plate 
fracture  (Figure  16).  Casket  material  between  the  plate  and  strips 
served  to  avoid  crushing  the  composite  plate  by  ov er-torquing  of  the 


attachment  bolts.  Great  rigidity  was  sought  In  the  model  attachment 


strips  and  the  ceiling  plate  to  ensure  that  as  much  of  the  lift-produced 
bending  moment  was  concentrated  in  the  balance  arms  as  possible. 

It  was  intended  that  the  entire  mounting  assembly  be  covered  by  a 
foam  and  fiberglass  fairing  to  avoid  having  it  adversely  influence  the 
spanwise  pressure  distribution  on  the  wing  (Figure  17)*  However,  no 
method  could  be  found  to  simply  and  quickly  attach  this  fairing  to  the 

wing  with  sufficient  rigidity  to  avoid  distortion  or  violent  flapping 

.  •* 

during  tunnel  runs.  The  fairing  was  therefore  eliminated.  A  ramp  to 
improve  flow  around  the  tunnel  installation  was  also  fabricated  for 
installation  at  the  forward  end  of  the  ceiling  plate  with  duct  tape 
(Figure  18). 
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Figure  18.  Lead  Tape  Application  and  Ramp 
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VI.  Experimental  Procedure 

Data  Colleetion 

Balance  strain  gage  data  was  read  as  micro-strain  using  a  balance- 
indicator  unit.  These  readings  were  normalized  to  the  strain  read  at 
the  maximum  speed  attained  with  the  wing  model  mounted  at  the  test  angle 
of  attack  with  no  control  surface  deflection.  The  true  lift  force  on 
the  wing  was  not  required  for  data  reduction.  Atmospheric  and  wind 
tunnel  parameters  were  available  from  standard  apparatus  on  the  site  for 
calculation  of  true  tunnel  airspeed  from  the  equivalent  airspeed 
provided  by  static  pressure  taps  in  the  tunnel  walls. 

A  video  camera  was  used  to  record  model  deformation  through  a  port 
below  and  slightly  downstream  of  the  test  section  and  a  port  in  the  side 
of  the  test  section. 

Wind  Tunnel  Corrections 

Corrections  to  the  wind  tunnel  data  for  tunnel  effects  were  limited 
to  those  that  influenced  lift  force  measurements  only  and  to  those  that 
would  effect  the  validity  of  tunnel  velocity  readings.  The  true  lift 
force  on  the  wing  was  not  critical,  only  the  magnitude  of  change  in  the 
lift  curves  between  each  wing  configuration.  Using  this  criteria,  only 
solid  blockage  effects  were  felt  to  be  significant.  Rat  and  Pope 
(12:365)  provide  a  simple  means  for  calculating  the  tunnel  velocity 
solid  blockage  correction,  eSb»  is 

esb  =  KVm/Cg3/2  (140) 
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where  K  ■  0.9  for  a  three  dimensional  wing  model,  C  is  the  test  section 


cross-sectional  area,  and  Vn  is  the  model  volume.  For  the  five  foot 
diameter  tunnel  and  an  estimated  model  volume  of  0.95  cubic  feet,  the 
solid  blockage  correction  is  The  corrected  tuanel  velovity  (Vc) 
is  then  simply 

vc  =  v  ♦  o.om  (1U1) 

Ground  Vibration  Test 

Flutter  clearance  for  the  wind  tunnel  models  was  accomplished  using 
the  CWINGF  computer  oode  (18).  To  validate  the  frequencies  produced  in 
the  flutter  analysis  of  the  wind  tunnel  models,  a  ground  vibration  test 
(GVT)  is  necessary.  For  the  low  speeds  produced  in  this  experiment, 
only  the  first  four  to  five  modes  were  of  interest.  Limited  frequency 
data  was  collected  on  the  flat  plates  prior  to  covering.  Details. of 
this  experiment  are  presented  in  Appendix  C. 

Testing  Scheme 

The  Case  3  model  was  tested  first  in  the  wind  tunnel  followed  by 
the  Case  1  model.  Tests  were  performed  at  0  and  5  deg  angles  of  attack 
and  0,  5,  and  10  deg  deflection  angles  of  the  three  lateral  control 
surfaces  (see  Table  VII).  Controls  were  always  deflected  in  the  same 
sense  as  the  AOA  to  produce  positive  camber. 

Each  modal  at  each  angle-of-attack  was  initially  run  with  2ero 
control  defleotion  from  zero  tunnel  velocity  to  160  mph  equivalent 
airspeed.  This  velooity  sweep  produced  a  lift  curve  when  the  balance- 
measured  strains  were  plotted  against  the  corrected  tunnel  velocities. 
Sweeps  were  made  with  pauses  each  5-10  psf  of  dynamic  pressure  to  record 
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Testing  Schedule 


velocity  sweeps  0  -  160  mph  at  each  condition 
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data.  During  these  pauses  an  excitation  was  applied  by  tugging  on  a 
wire  attached  te  the  tip  of  the  wing.  This  was  Intended  to  excite  any 
flutter  modes  present  at  that  speed  or  to  observe  the  degree  of  damping 
present.  Velocity  sweeps  were  then  repeated  with  controls  deflected  and 
this  data  plotted  against  the  zero-deflection  lift  curve  for  the  same 
angle  of  attack.  Reversal  speed  was  determined  at  the  speed  at  where 
the  control -deflected  curve  crossed  the  zero-deflection  lift  curve. 
Incrementally  higher  control  deflections  were  run  to  verify  this  speed, 
however  flow  seperation  was  expected  to  cause  a  slight  offset  at  the 


reversal  point 


VII.  Results  and  Discussion 


Static  Analysis 

Windtunnel  test  results  are  presented  in  Figures  19-24  and  in  Table 
VIII.  Velocities  shown  are  subject  to  an  error  of  plus  or  minus  2  mph. 
Success  was  obtained  in  producing  well  defined  lift  curves  for  the  wing 
at  zero  AOA  and  control  deflections  up  to  10  deg.  The  non-zero  lift 
curves  at  zero  AOA  and  neutral  controls  is  attributed  to  a  slight 
rotation  of  the  model  from  the  tunnel  centerline  due  to  a  small 
tolerance  error  in  construction  of  the  installation. 

Figure  22-23  show  that  at  5  deg  AOA  little  additional  lift  was 
produced  for  the  Case  1  wing  with  the  deflection  of  the  control 
surfaces.  The  pronounced  rounding  of  these  curves  suggest  that  flow 
separation  and  a  near-stall  condition  may  have  occurred.  The  flaperon 
at  10  deg  deflection  test  conditions  was  tested  again  with  tufts  on  the 
wing  to  assist  in  flow  visualization.  This  test  indicated  that  regions 
of  separated  flow  were  occurring  from  1/4  to  1/2  the  chord  of  the  w  :  - 
in  the  outer  half  of  the  span.  Flow  appeared  to  re-sttach  ef  •  •  •  • 
1/2  chord  line  and  stay  attached  over  the  control  surfaces.  Due  * 
condition,  the  5  deg  AOA  test  points  were  not  repeated  w ; • ‘  ••• 
wind  tunnel  model. 

Tip  deflections  were  approximated  v  isua :  ly  t  y  ?>;*••  . 

port  in  the  bottom  of  the  tunnel.  Deflect:.-: 
inches  from  neutral  and  up  to  £  deg  .  f  ’  - .  • 
deflectioncase.  The  twisting  in 
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Lgure  24.  Case 


deg  control  deflections.  The  5  deg  AOA  tests  produced  bending  up  to  16 
inches  and  twist  up  to  8  deg  at  the  5  deg  control  deflection  condition, 
and  up  to  20  inches  of  deflection  and  20  deg  of  torsion  for  the  10  deg 
deflection  case.  Most  of  the  deformation  occurred  within  the  first  75 
mph.  Test  normal  lift  forces  measured  by  the  balance  may  be  obtained  by 
use  of  the  normalization  factor  provided  on  the  lift  curve  figures.  No 
effort  was  made  to  correct  these  lifts  for  tunnel  effects  or  other 
losses. 

Tests  at  10  deg  AOA  produced  tip  bending  on  the  order  of  2*J  inches. 
This  proved  to  be  too  severe  for  the  foam  adhesive  and  debonding  was 
experienced.  Loads  on  the  order  of  1600  pounds  on  the  model  were 
measured,  with  loads  on  the  individaul  beam  arms  exceeding  those  for 
which  they  were  calibrated  prior  to  the  tunnel  tests.  Due  to  these 
extreme  deformations  and  the  unreliability  of  the  strain-to-load 
conversions,  no  further  tests  were  conducted  at  10  deg  AOA. 

Reversals  occurred  as  reason  would  dictate  with  the  tip  control 
surface  (aileron)  reversing  at  lower  airspeeds  that  the  flaperon,  and 
the  flaperon  reversing  at  lower  speeds  than  the  root  control  surface 
(flap).  This  is  the  opposite  of  the  predicted  results  given  in  Figure 
11  and  Table  VIII.  Further  investigation  of  these  results  are  reproduced 
in  Table  IX.  The  phenomenon  is  not  a  result  of  using  composites,  but  is 
rather  a  planform  effect.  Only  the  straight  wings  showed  the  expected 
trend  of  reversal  speed  increasing  as  the  aileron  was  moved  inboard. 
Predicted  reversal  speeds  and  the  differences  between  them  for  each  case 
were  the  same  order  of  magnitude  as  those  shown  experimentally  and 
showed  the  same  trend  with  forward  rotation  of  the  laminate.  The  cause 
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TABLE  IX 


Reversal  Investigation 

(Layup  1,  Case  1,  6  panel  control  surface,  1000  ft  PA) 


(all  speeds  MPH) 


Aileron  Position 

Root  Midspan  Tip 

Planform 

•  VD 

VR 

■  VR 

VR 

swept,  tapered 

161 

97 

107 

118 

swept,  tapered  (metal) 

156 

83 

94 

106 

unswept,  tapered 

122 

95 

106 

121 

unswept,  straight  ! 

97 

87 

86 

81 

swept,  straight 

118 

89 

86 

79 

aileron  span  and  wing  area  constant  for  all  cases 


of  this  error  is  believed  to  lie  in  the  nature  of  the  structural 
influence  formulations. 

The  data  indicates  that  the  Case  1  control  surfaces  reverse  at 
higher  airspeeds  than  Case  3  surfaces.  This  is  not  what  one  would 
expect  because  the  Case  1  laminate  is  assumed  to  be  less  torsionally 
stiff  since  fewer  of  its  fibers  are  rotated  ahead  of  the  elastic  axis. 
Examining  the  example  static  analysis  results  provided  in  Appendix  B 
shows  that  the  El  parameter  for  Case  1  is  greater  than  that  for  Case  3 
and  the  GJ  parameter  is  less  than  Case  3*  However,  the  bending-torsion 
coupling  parameter  K  is  the  most  telling  for  such  predictions.  This 
enforces  the  conclusion  that  it  is  difficult  to  predict  composite  wing 
behavior  intuitively. 

While  the  error  in  predicting  the  static  characteristics  of  the 
wing  are  probably  due  to  the  analysis  method  employed,  other  sources  of 
error  are  present.  Analysis  sensitivity  to  common  minor  variations  in 
the  material  properties  of  the  composite  is  a  source  of  prediction 
error.  Another  contributor  is  the  added  stiffness  of  the  model 
covering.  Other  sources  of  error  may  be  possible  roll-up  of  the  control 
surfaces  and  small  bending  of  the  attachment  brackets.  Differing  flow 
seperation  from  the  individual  model  configurations  also  introduces 
error.  The  large  model  deflections  under  load  may  violate  the 
assumption  of  small  deflections  to  the  extent  of  invalidating  the 
linearized  equations. 

The  COMPSTAT  listing  and  input  guide  provided  in  Appendix  B  permits 
the  separation  of  the  structural  box  beam  portion  of  the  wing  from  the 
aerodynamic  planform,  the  later  including  control  surfaces  which  add 


iiiMjmwiuwvui 


nnk^¥^fi»wn«  "  M  ~  m 


only  negligibly  to  the  structural  characteristics  of  the  wing.  This 
option  was  used  for  the  final  calculation  of  the  predicted 
characteristics  compared  with  tunnel  results  but  is  not  reflected  in 
other  predictions  presented  elsewhere  in  this  thesis.  Comparisons  with 
these  other  predictions  indicated  that  the  separation  of  the  two 
planforms  will  change  divergence  and  reversal  speeds  from  4-9%, 
generally  reducing  the  latter. 

Divergence  of  the  Case  1  model  was  predicted  to  occur  at  174  mph. 
The  model  was  tested  up  to  212  mph  true  airspeed  with  no  divergence 
evident.  Divergence  calculations  have  been  common  for  several  decades 
and  failure  to  predict  this  event  is  a  fundamental  failure  of  the 
methods  used.  This  again  points  to  the  possible  use  of  an  inappropriate 
structural  model. 

Examples  of  other  results  produced  by  the  static  analysis  are 
provided  in  Appendix  B.  Some  of  these  results  also  appear  to  be 
suspect.  Many  of  the  lift  curve  slopes  computed  are  very  high  and  the 
tosional  deformations  much  lower  than  those  observed  in  the  wind  tunnel 
and  in  one  case  showing  a  leading  edge  up  deflection. 


Dynamic  Analysis 

As  a  means  of  verifying  the  predicted  elasticity  of  the  composite 
plates  and  as  a  tunnel  fit  check,  the  Case  2  bare  plate  was  installed  in 
the  tunnel  at  zero  degrees  angle-of-attack,  flap  at  zero  degrees 
deflection,  and  aileron  at  10  degrees  deflection,  prior  to  productive 
covered  model  testing.  Excitation  was  made  by  pulling  on  a  length  of 
safety  wire  tied  to  the  outboard  aileron  attachment  bracket  and  then 
releasing  it. 
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About  4  overshoots  of  the  tip  in  response  to  the  excitation  was 
seen  initially.  This  reduced  to  a  deadbeat  response  at  100  mph. 

Beginning  at  about  80  mph,  a  slight  tremor  at  the  tip  of  the  model 
became  evident,  attributed  to  tunnel  turbulence.  As  the  tunnel  velocity 
was  increased  to  110  mph  equivalent  airspeed  the  wing  plate  fluttered 
violently,  with  bending  as  much  as  24  inches  either  side  of  centerline. 

i 

No  damage  was  done  to  the  tunnel,  mount,  or  the  model. 

The  flutter  was  later  repeated  with  neutral  controls  and  the 
flutter  was  sustained  at  approximately  4  inches  of  tip  deflection  either 

I 

side  of  neutral  beginning  at  approximately  85  mph  equivalent  airspeed.  j 

By  painting  the  edge  of  the  plate  white  and  using  a  strobe  lamp,  the 
bending  frequency  was  determined  to  be  10.0  Hz.  A  grid  pattern  chalked 
onto  the  plate  assisted  in  visualizing  the  flutter  mode  (see  Figure  25). 

This  test  demonstrated  that  the  composite  plate  could  deform  under 
airloads  to  the  extent  that  control  reversal  was  likely.  The  flutter 
event  served  as  a  caution  for  further  testing  but  did  not  establish  a 
flutter  speed  as  the  actual  final  test  conditions  with  the  covered 
models  were  not  the  same. 

During  the  initial  wind  tunnel  velocity  sweep  of  the  Case  3  model 
with  foam  airfoil  covering  at  zero  degrees  AOA  and  zero  control 
deflections,  a  flutter  was  experienced  at  approximately  101-103  mph 
equivalent  airspeed.  Unlike  the  flat  plate  flutter,  this  oscillation 
was  characterized  by  a  tip  deflection  of  only  2-3  inches  each  side  of 
neutral.  The  flutter  mode  appeared  to  be  dominated  by  bending  with  some 
torsional  deformation.  This  may  indicate  that  the  foam  supplies 
additional  damping. 
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Figure  25.  Case  2  Plate  Flutter  Mode 
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These  unanticipated  flutter  events  (the  test  envelope  having  been 
cleared  with  CWINGF)  required  remedy  before  productive  testing  could  be 
accomplished.  From  examination  of  the  GVT  modal  results  (Appendix  C) 
indicates  that  the  flutter  mode  occurred  by  a  coupling  of  the  first 
torsion  and  second  bending  modes.  These  modes  have  very  close 
frequencies.  The  flutter  mode  shown  in  Figure  25  supports  this 
conclusion  although  the  frequency  measured  with  the  stobe  does  not.  To 
separate  these  frequencies,  a  relatively  the  easy  solution  is  to  attach 
additional  mass  near  the  leading  edge  of  the  model.  This  biases  the 
center  of  gravity  forward  of  the  elastic  axis.  This  tends  to  reduce  the 
torsional  frequency.  Adding  tip  mass  would  reduce  the  bending  frequency 
and  only  move  the  modes  closer  together. 

To  adjust  the  mass  distribution,  1.0  lbs  of  lead  tape,  1/10  of  the 
plate  weight,  was  fixed  to  the  leading  edge  of  the  wing  laid  in  the 
spanwise  direction  (Figure  18).  The  tape  was  tapered  between  the  10% 
and  35%  chord  lines.  This  raised  the  flutter  speed  to  approximately 
170-172  mph  equivalent  airspeed  where  flutter  was  again  encountered. 
This  speed  was  satisfactory  to  allow  productive  testing.  The  flutter 
was  easily  stopped  with  the  excitation  wire  before  the  magnitude  of  the 
oscillations  exceeded  8-9  inches  either  side  of  neutral.  All  subsequent 
tests  were  limited  to  160  mph  equivalent  airspeed  to  avoid  this  flutter. 

The  Case  3  model  was  tested  prior  to  the  Case  1  wing.  The  lead  tape 
treatment  was  applied  to  the  Case  1  model  prior  to  any  unaltered  flutter 
investigation,  and  then  subjected  to  the  same  speed  constraints  as  the 
Case  1  model  in  order  to  avoid  damaging  the  model  prior  to  collection  of 
the  necessary  static  data.  When  all  static  data  had  been  collected,  the 


flutter  speed  of  the  Case  1  model  with  the  lead  tape  treatment  was  found 
to  be  approximately  175  mph  equivalent  airspeed.  Near  this  speed 
damping  was  extremely  light  with  the  final  flutter  oscillation  excited 
with  the  wire.  Turbulence  alone  was  insufficient  to  excite  the  flutter. 
The  test  was  performed  with  the  flap  at  10  deg  and  the  aileron  at  0  deg 
deflection.  The  flutter  speed  of  the  Case  1  model  without  the  tape  was 
beyond  175  mph  but  could  not  be  determined  due  to  the  speed  limit  of  the 
wind  tunnel. 

The  flutter  of  the  wing  models  appears  to  involve  control  surface 
interactions.  Flutter  of  the  flat  plate  showed  heavy  flaperon  motion. 
It  is  possible  that  attachment  plate  deformation,  composite  deformation 
around  the  attachments,  and  deformation  of  the  control  surfaces 
themselves  are  contributors  if  not  the  primary  source  of  the  flutter. 

The  covered  models  produced  the  same  response  to  turbulence  as 
described  for  the  flat  plate. 

Optimization 

Examples  of  the  form  of  the  objective  function  and  constraints  are 
presented  with  optimization  results  in  Table  X.  It  is  immediately 
evident  that  ADS  will  disregard  symmetry  of  the  ply  orientations  about 
the  midplane  of  the  plate.  This  may  be  enforced  by  proper  selection  of 
design  variables.  However,  ADS  often  rotated  the  plies  only  a  few 
degrees  from  the  starting  layup  that  had  to  be  supplied  which  was 
symmetric.  Occassional ly  only  a  few  layers  were  changed  in  the  input 
layup.  As  a  consequence  of  these  factors,  a  nearly  symmetric  layup  may 
result.  As  with  any  optimization  method,  the  risk  exists  that  only  a 
local  minimum  will  be  found,  as  demonstrated  in  Table  XA.  ADS  is 
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Table  XA 


Example  Optimization  Results 


attempting 

to  match  results 

of  Case  1 

with  layup  for 

Case  3  ailerons  (see  Table  VI) 

(all  speeds  mph) 

Initial 

Final 

Layup 

Layup 

110.00 

75.39 

110.00 

72.56 

Objective: 

VR  =  118.0 

110.00 

70.33 

n 

110.00 

69.13 

Constraints : 

1.2VR  i  Vn 

110.00 

69.55 

n  u 

Vn  *  175 

110.00 

70.55 

U 

110.00 

76.99 

110.00 

84.37 

Results: 

Vr  =  125 

65.00 

68.35 

VD  =  161 

155.00 

168.52 

65.00 

66.14 

Was  Seeking: 

VR  =  118 

155.00 

179.97 

VD  =  161 

65.00 

173.71 

155.00 

38.23 

65.00 

176.41 

Comments:  Case  1  results 

would 

have 

155.00 

2.48 

been  acheived  by  rotating 

plies 

aft 

155.00 

2.65 

20  deg.  Failed  to  find  optimum. 

65.00 

174.70 

155.00 

0.00 

65.00 

179.70 

155.00 

166.68 

65.00 

69.32 

155.00 

160.10 

65.00 

69.32 

110.00 

106.37 

110.00 

106.79 

110.00 

107.10 

110.00 

107.87 

8  Iterations 

110.00 

108.23 

214  Function 

Evaluations 

110.00 

109.24 

110,00 

108.79 

110.00 

109.54 
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Table  XB 


Initial 

Layup 

110.00 
110.00 
110.00 
110.00 
110.00 
110.00 
110.00 
110.00 
65.00 
155.00 
65.00 
155.00 
65.00 
155.00 
65.00 
155.00 
155.00 
65.00 
155.00 
65.00 
155.00 
65.00 
155.00 
65.00 
110.00 
110.00 
1 10.00 
1 10.00 
110.00 
110.00 


Example  Optimization  Results 


3  Rotations  of  -10  deg,  Ailerons, 
(all  speeds  mph) 

Final 

Layup 


110.00 

110.00 

110.00 

110.00 

110.00 

110.00 

110.00 

110.00 

65.00 

155.00 

65.00 

155.00 

65.00 

155.00 

65.00 

155.00 

155.00 

65.00 

155.00 

65.00 

155.00 

65.00 

155.00 

65.00 

110.00 

110.00 

110.00 

110.00 

110.00 

110.00 


Objective:  VR1  =  100 


Constraints: 


VR1 

VR2 

1.2V 


+  10  f  V 
+  10  f  V 
*  Vr 


R1 

R2 


D1 

D2 


1  -2vR3.:_vD3 


D1 


i  175 


"D2  *  ^5 
VD3  *  175 


R2 

R3 


Results: 


R1 

R1 

R3 

'D1 

fD2 

'D3 


109 
108 
108 
i:  102 
6158 
320  0  2 


Comments:  Coulndn't  do  any  better  than 
the  intial  layup  with  poor  results. 


1  Iterations 
32  Function  Evaluations 


Table  XC 

Example  Optimization  Results 

Single  24 

Ply  Case,  Ailerons 

(all 

speeds  mph) 

Initial 

Final 

Layup 

Layup 

110.00 

97.98 

110.00 

104.20 

Objective:  Vn  =  175.0 

110.00 

107.83 

110.00 

67.65 

Constraints:  1.2VD  £ 

110.00 

74.13 

VR  i  25 

110.00 

78.23 

VD  £  175 

65.00 

0.23 

155.00 

179.98 

Results:  V„  =  86 

65.00 

165.85 

»;  =  i73 

155.00 

179.96 

65.00 

179.95 

155.00 

146.08 

Comments:  Superior  to  32  ply  case. 

155.00 

137.33 

Vp  in  objective  and  constraint 

65.00 

179.47 

created  no  difficulty. 

155.00 

179.96 

65.00 

163.44 

155.00 

179.97 

65.00 

1.17 

110.00 

75.02 

110.00 

70.61 

6  Iterations 

110.00 

72.34 

254  Function  Evaluations 

110.00 

82.91 

110.00 

97.76 

110.00 

106.83 
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Table  XD 


Initial 

Layup 

110.00 
110.00 
110.00 
110.00 
110.00 
110.00 
65.00 
155.00 
65.00 
155.00 
65.00 
155.00 
155.00 
65.00 
155.00 
65.00 
155.00 
65.00 
110.00 
110.00 
1 10.00 
110.00 
110.00 
110.00 


Example  Optimization  Results 


24  Plies 

3  Rotations  of  +10  deg,  Ailerons, 
(all  speeds  mph) 

Final 

Layup 


103.93 

106.30 

107.81 

110.82 
111.07 
111.54 

73.12 

163.72 
85.33 

163.73 
105.15 
100.87 
100.89 
105.15 
163.73 

85.33 

163.73 

72.13 
111.32 
111.07 
110.81 
103.62 
104.77 
105.63 


Objective: 


Constraints: 


VD!  =  175 


-  10  *  VF 

-  10  i  V, 


i.2Vri  f 
1.2VP,  i 
1.2V”  * 
V  f-^25 


Results: 


Comments:  Poor  match  to  objective 
and  Vp  constraints.  Only  minor 
rotations  from  initial  layup. 

40  Iterations 
147  Function  Evaluations 


Table  XE 


Initial 

Layup 

110.00 
110.00 
110.00 
110.00 
110.00 
110.00 
65.00 
155.00 
65.00 
155.00 
65.00 
155.00 
155.00 
65.00 
155.00 
65.00 
155.00 
65.00 
110.00 
110.00 
1 10.00 
110.00 
110.00 
110.00 


Example  Optimization  Results 


24  Plies 

3  Rotations  of  -10  deg,  Ailerons, 
(all  speeds  mph) 

Final 

Layup 


168.34 

81.51 

11.24 

57.78 

165.18 

69.65 
8.29 
0.02 

16.32 

158.46 

168.78 

18.36 

12.14 

11.92 

173.97 

5.99 

30.65 

8.79 

9.79 
169.24 

50.35 

174.92 

172.39 

173.42 


Objective:  VD1  =  175 


Constraints: 


Results: 


VR1 

VR2 
1 .2V 

1.2V 

1 ,2V 

VR 1 

JD2  - 

VD3 
VR1  = 
VR3 

JD2 

VD3 


♦ 

10  i  V 

♦ 

10  f  V 

R1 

f  VD1 

R3 

f  VD2 

R3 

J  VD3 

25 

f 

25 

t 

25 

- 

175 

- 

175 

= 

90 

= 

87 

z 

96 

r 

178 

= 

106 

z 

151 

R2 

R3 


Comments:  Best  results.  Would  have 

made  excellent  cases  for  tunnel  models 


30  Iterations 
299  Function  Evaluations 


clearly  sensitive  to  the  choice  of  objective,  constraints,  and  the 
intial  values  of  the  design  variables.  For  this  reason  it  is  advisable 
to  cast  the  problem  in  several  forms  to  improve  the  chance,  of  locating 
the  global  minimum. 

COMPSTAT  was  designed  as  a  program  that  would  run  quickly  and  thus 
entail  little  cost  for  computer  resources.  This  makes  these  routines 
ideal  for  optimization  studies.  However,  the  addition  of  ADS 
considerably  alters  this  feature.  For  the  three  rotation  cases  shown  in 
Table  X,  as  much  as  45  seconds  of  processor  time  was  required. 

The  use  of  automated  design  techniques  as  a  minimization  operation 
is  shown  to  be  practical.  The  risk  of  arriving  at  only  a  local  minimum 
has  been  demonstrated,  however  considerable  designer  effort  is 
eliminated  for  beneficial  insight  into  trends.  The  results  provided  in 
Table  III  show  that  the  wind  tunnel  models  used  in  the  test  could  have 
been  built  about  a  24  ply  laminate  with  better  results  than  the  3 2  ply 
plates  dictated  by  the  need  to  limit  variables  for  manual  design 
iterations. 


Several  of  the  design  parameters  were  used  as  the  objective 
function.  However,  the  most  important  aspects  of  the  design  lay  in  the 
constraints,  and  it  was  found  that  these  were  often  given  unknown 
weighting.  This  required  casting  the  problem  in  slightly  different 
forms  of  the  objective  and  constraints  to  find  the  several  minimums  near 
the  desired  result.  ADS  added  considerable  computation  time  to  the 
analysis. 

After  many  optimizations  it  must  be  concluded  that  differences  in 


laminate  rotations  of  less  than  20  deg  for  the  tunnel  speed  range, 
planform,  and  composite  used  in  this  design.  Designing  a  model  to 
demonstrate  both  control  reversal  and  divergence  within  the  speeds 
dictated  by  the  AFIT  5  ft  tunnel  was  also  extremely  difficult,  and  found 
to  be  possible  for  only  one  of  the  three  rotation  cases.  These 
limitations  appear  to  present  a  critical  obstacle  to  future  efforts  of 
the  kind  presented  in  this  thesis. 

Model  Fabrication 

Surface  finish  on  the  wind  tunnel  models  were  not  as  smooth  as 
desired.  The  bond  of  the  foam  to  the  composite  plate  was  not  as 
dependable  as  required.  Initial  tunnel  runs  resulted  in  varying  degrees 
of  foam/plate  separations.  This  problem  was  overcome  with  a  combination 
of  epoxy  applied  to  the  trailing  edge  of  the  foam  and  tape  between  foam 
gores  and  the  control  surfaces  (also  surving  to  deal  this  gap)  applied 
in  a  manner  that  would  add  no  stiffness  to  the  model.  Without  this 
treatment  the  gores  tended  to  migrate  slightly  on  the  plate  under  the 
varing  bending  and  twisting  conditions.  However,  the  construction 
method  has  been  demonstrated  to  be  sound,  adding  very  little  stiffness 
to  the  laminate  structure. 

Instrumentation 

The  bifurcated  strain  gage  balance  was  not  as  sensitive  as  desired. 
Measuring  loads  by  this  means  also  introduced  undesired  hysterisis, 
especially  at  the  low  end  of  the  strain  range. 


100 


Wind  Tunnel  Instal lation 


The  use  of  a  fairing  to  cover  the  balance/mount  fixture  proved 
impractical  as  designed.  The  fairing  was  designed  to  be  installed  with 
‘rpe  alone  and  this  was  insufficient  to  restrain  it  under  loads. 

A  ramp  at  the  forward  end  of  the  tunnel  attachment  plate  was  used 
for  one  test  only  to  see  if  it  significantly  influenced  the  lift  curves. 
Results  indicate  that  its  benefits  are  negligible. 
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IX.  Suggestions  and  Recommendations 


Static  Analysis 

Considerable  work  remains  in  order  to  explain  the  difficulties 
discussed  in  the  previous  section  and  to  remedy  them.  The  use  of  other 
structural  models  for  the  computation  of  the  stiffness  matrix  is  the 
first  logical  step  for  such  a  task.  A  substitution  of  plate  theory  for 
the  beam  theory  used  in  this  thesis  is  recommended.  The  experimental 
results  presented  offer  the  necessary  data  for  comparison  and  validation 
of  any  future  analysis. 

The  prediction  of  bending  deformation  is  recommended  as  an 
important  addition  to  the  coding  provided.  This  would  permit  tunnel 
wall  clearance  checks  and  may  influence  model  fabrication  options.  This 
would  also  permit  the  evaluation  of  the  validity  of  the  assumption  of 
small  deformations  for  equation  linearization.  A  carefully  conducted 
plate  load/deformation  test  to  verify  predicted  influence  coefficients 
is  also  recommended  for  future  investigation.  A  reliable  method  should 
be  found  for  predicting  the  additional  stiffness  contributed  by  the 
model  cover  material  and  include  it  in  the  static  analysis. 
Additionally,  evaluation  of  the  rigidity  of  the  tunnel  mounting  system 
would  allow  possible  changes  to  the  boundary  conditions  of  the  analysis. 

Only  the  minimum  necessary  data  was  obtained  with  the  wind  tunnel 


models  owing  to  the  press  of  time,  and  much  remains  that  could  be  done 
with  them.  Employing  a  tunnel  with  a  greater  velocity  range  that  would 


permit  the  determination  of  the  flap  and  flaperon  reversal  speeds  and 
perhaps  divergence  speeds  is  recommended  for  future  studies. 

Dynamic  Analysis 

Future  investigators  must  apply  more  effort  to  flutter  prediction. 
This  is  often  a  complex  and  costly  effort,  however  the  simple, 
inexpensive  methods  applied  in  this  thesis  gave  inadequate  results.  The 
use  of  more  sophisticated  codes  to  provided  more  than  one  answer  to  the 
problem  is  the  desired  approach.  The  addition  of  the  dynamic 
characteristic  of  the  tunnel  mounting  system  to  the  analysis  may  improve 
the  flutter  computation. 

Only  a  superficial  GVT  was  performed  on  the  composite  plates.  A 
GVT  of  the  completed  tunnel  models  is  advised  in  an  effort  to  determine 
the  effect  of  the  covering  material  on  the  dynamic  characteristics  of 
the  structure.  This  data  would  then  be  available  for  future  dynamic 
analyses. 

The  models  provide  an  ideal  flutter  investigation  tool  with  the 
potential  for  much  data  to  be  collected  from  them.  The  use  of  a  full 
flutter  data  collection  system  will  provide  information  that  can  then  be 
used  to  validate  dynamic  analysis  results.  By  placing  strain  gages  on 
the  composite  plates,  deformed  shape  data  can  be  collected  in  an  effort 
to  determine  the  true  nature  of  the  flutter  phenomenon  experienced 
during  the  wind  tunnel  tests. 

Optimization 


Further  ADS  runs  can  be  made  with  a  modified  COMPSTAT  to  provide 


variables  may  be  added  to  the  optimization.  Iteration  on  the  number  of 
plies  would  save  much  time  and  effort.  Other  ADS  optimization  methods 
can  be  investigated  to  see  which  provides  the  best  minimization  for  the 
nature  of  the  design  problem.  Changing  the  weighting  of  the  constraints 
may  also  assist  in  improving  the  minimization. 

Model  Fabrication 

While  the  fabrication  techniques  demonstrated  in  the  test  effort 
were  largely  successful,  the  difficulties  explained  in  the  last  section 
illustrate  the  need  for  more  investigation  in  this  area.  Time  spent  in 
experimenting  with  different  foams,  adhesives,  and  skin  materials  is 
recommended  with  the  need  for  low  stiffness  to  be  paramount.  Every 
effort  should  be  made  to  ensure  high  workability,  smooth  surface  finish, 
and  a  durable  model. 

In  the  future,  care  should  be  taken  in  selection  of  the  model  wing 
section  to  avoid  the  flow  seperation  problem  encountered  in  this  test. 
Section  thickness,  leading  edge  radius,  and  stall  characteristics  should 
be  considered  in  this  selection.  As  it  is  possible  that  the  control 
surface  attachment  method  may  have  permitted  enough  surface  deflection 
to  influence  or  even  cause  the  flutter,  other  methods  should  be 
investigated.  It  is  important  that  any  method  not  add  appreciable 
stiffness  to  the  model. 

Instrumentation 

A  more  sensitive  balance  coupled  to  automated  data  collection  and 
reduction  equipment  would  significantly  improve  this  aspect  of  the  test. 
The  sensitivity  of  the  balance  can  be  improved  by  milling  the  attachment 


bars  to  create  a  thinner  neck  to  which  new  strain  gages  can  be  attached. 


Calibration  by  a  means  that  would  permit  higher  loads  while  retaining 
the  required  accuracies  would  permit  future  tests  to  be  run  to  higher 
angles  of  attack  where  greater  normal  wing  loads  will  occur.  A  means 
for  measuring  tip  bending  and  torsional  deflections  at  the  wing  tip  at  a 
minimum  would  be  a  useful  addition  to  the  instrumentation  package. 

Wind  Tunnel  Installation 

It  is  highly  recommended  that  future  research  with  the  equipment 
constructed  for  this  thesis  research  include  a  root  fairing  to  cover  the 
balance  and  mount.  This  is  common  testing  practice.  To  do  this,  a 
fairing  rigid  enough  to  withstand  airloads  but  adding  nothing  to  the 
stiffness  of  the  mount  must  be  designed.  The  use  of  the  ramp  (Figure 
18)  is  also  advisable  to  reduce  tunnel  blockage. 


A:  Aeroelastic  Subroutines 


* 

Appendix 

The  analysis  methods  presented  in  this  thesis  have  been  used  in  the 
preparation  of  a  family  of  mutually  interactive  aeroelastic  subroutines 
that  may  be  used  in  operator  fashion.  Many  of  the  subroutines  have  been 
adapted  from  the  Weisshaar  CWINGS  program. 

The  subroutines  have  been  prepared  using  the  FORTRAN  77  programming 
language.  The  subroutines  are  highly  documented  in  the  form  of  comments 
to  assist  the  reader  in  tracing  the  sources  of  the  algorithms  used.  The 
reader  is  referred  to  the  listings  provided  for  the  input  parameters  and 
their  units.  A  consistency  in  units  has  been  maintained  throughout  to 
serve  only  as  a  guide  for  user  adaption. 

Each  subroutine  is  identified,  its  purpose  stated,  and  other 
relavent  data  provided  on  a  page  which  serves  to  separate  individual 
subroutine.  This  page  is  followed  by  a  listing  of  the  subroutine,  an  10 
program,  a  sample  input,  and  a  sample  output  listing,  in  that  order. 
Sample  inputs  and  outputs  are  provided  to  assist  the  user  in  "debugging" 
the  subroutine  if  manually  programmed.  The  10  program  for  each 
subroutine  is  provided  so  that  the  subroutines  may  be  used  with  a 
general  main  program.  These  10  programs  may  be  combined  in  the  creation 
of  a  main  driver  program  such  as  that  provided  in  Appendix  B.  The  10 
listings  provided  follow  examples  provided  throughout  the  thesis  for  the 
experimental  models  as  much  as  possible. 


\ 


AER01 


I 


This  subroutine  determines  the  aerodynamic  influence  coefficient 
matrix  by  the  Weissinger  L-method,  This  method  produces  bound  vortices 
that  are  parallel  to  a  line  normal  to  the  root  chord. 


SUBROUTINE  AEROl 


DO  10  I-1,NP 

x-axis  distance  to  quarter-chord 
10  XV(I)-X(I)-E(I) 


this  subroutine  determines  the  aerodynamic  influence  coefficient 
(AIC)  matrix  using  modified  Weissinger  L-method  (see  NACA  TN  3030) 


DIMENSION  XV(20),SS(20,20) 

C0MM0N/A1/C( 20 ) , E( 20 ) ,H( 20) , X(20) , Y( 20) , AIC( 20, 20 ) , A0,  SYM,  NP 


NP  -  number  of  panels  in  semi-span 

A0  -  2-D  lift-curve  slope  of  section  (same  for  all  panels) 

SYM  -  +1.0  for  symmetric  load  distribution 
-1.0  for  anti- symmetric  distribution 
C  -  aerodynamic  chord  at  center  of  panel  (in.) 

E  -  distance  from  reference  axis  to  aerodynamic  center  at  middle 
of  panel  along  aerodynamic  chord  ( in . ) 

H  -  width  of  panel  ( in . ) 

X  -  x-axis  intercept  of  panel  midchord  and  reference  axis  (in.) 

Y  -  as  in  X  but  for  y-axis 


horseshoe  vortex  at  quarter-chord 
control  point  at  3/4-chord 


I  -  panel  of  interest 
DO  30  I-1,NP 


J  -  all  other  panels  in  wing 
DO  20  J-1,NP 


following  equations  from  page  38  of  NACA  TN  3030 
working  left  semi-span 


ARG-(XV(I)+C(I)/2.0-XV(J))«*2 


for  left  semi-span  (positive  y-coordinates ) 
ARGl-SQRT(ARG+(Y(I)-Y(J)+H(J)/2.0)**2) 


ARG2”SQRT( ARG+ ( Y( I )-Y( J )-H{ J)/2 . 0 ) *  *2 ) 


for  right  semi-span  (negative  y-coordinates) 
ARG3-SQRT(ARG+(Y( I )+Y( J)+H( J)/2 . 0) **2) 


ARG4-SQRT(ARG+ ( Y ( I ) +Y( J ) -H ( J )/2 . 0 ) **2 ) 


left  semi-span 

SINPHL-(XV(I)+C( I)/2.0-XV(J) )/ARGl 
COSPHL-  ( Y(  I)-Y(J)+H(J)/2. 0  )/ARGl 
SINTHL- ( XV( I )+C( I )/2 . 0-XV{ J) )/ARG2 
COSTHL- ( Y( I)-Y(J)-H(J)/2. 0 )/ARG2 


right  semi-span 

SINPHR" (XV( I )+C( I )/2 . 0-XV( J ) J/ARG3 
COSPHR-(Y(I)+Y(J)+H(J)/2.0)/ARG3 
SINTHR” (XV(I)+C(I)/2. 0-XV( J) )/ARG4 
COSTHR” ( Y( I)+Y(J)-H(J)/2. 0 )/ARG4 
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eqn  A38  ot  NACA  TN  3030 

51- {  1 . 0+SINPHL)/COSPHL-  ( 1 . 0+SINTHL)/COSTHL 

52-  ( 1 . 0+SINPHR ) /COSPHR 

53- (1.0+SINTHR)/COSTHR 

SXIJ-XV( I )+C( I )/2 . 0-XV( J) 

SS(I,J)-(SH-SYM*S2-SYM*S3)/SXIJ 

elements  of  S  on  the  principal  diagonal  must  be  positive 
and  all  other  elements  must  be  negative 
(see  page  39  of  NACA  TN  3030) 

20  AIC(I,J)-SS(I,J)/(4*A0) 

30  CONTINUE 

RETURN 

END 


PROGRAM  AIR1 

sample  run  for  subroutine  AERO 
present  limit  twenty  semi-span  panels 

COMMON/Al/C(20),E(20),H(20),X(20>,Y(20),AIC(20,20),A0,SYM,NP 

READ  (5,*)  NP , A0 , STM 
DO  10  I-1,NP 

10  READ  (5,*)  X<I),Y(I),H(I),E(I),C(I) 

CALL  AER01 

WRITE  (6,*)  (<AIC(I,J),J-1,NP),I-1,NP) 

END 


Sample  10  program  for  AER01 


10  6.2832  -1.0 


14.22 

42.75 

4.5 

1.866 

9.0 

12.72 

38.25 

4.5 

2.657 

12.0 

11.23 

33.75 

4.5 

3.447 

15.0 

9.73 

29.25 

4.5 

4.237 

18.0 

8.23 

24.75 

4.5 

5.028 

21.0 

6.74 

20.25 

4.5 

5.818 

24.0 

5.24 

15.75 

4.5 

6.609 

27.0 

3.74 

11.25 

4.5 

7.399 

30.0 

2.25 

6.75 

4.5 

8.189 

33.0 

0.75 

2.25 

4.5 

8.980 

36.0 

Sample  input  for  AER01 


Hi 


7.493575662E-02 
-8.562540752E-04 
-1.091690065E-04 
-2.247067727E-02 
-4.967279965E-04 
-3.096980974E-03 
-4.214351997E-03 
-2.402672690E-04 
-2.202968486E-02 
-1.668253681E-03 
-5.638469593E-04 
7 . 162672281E-02 
-6.997816381E-04 
-1.310992986E-03 
-2.298180945E-02 
-1.930659637E-04 
-3 . 925033379E-03 
-3.902055323E-03 
-3.179474152E-04 
-2. 272049151E-02 
-6.120362377E-05 
-5. 536786048E-04 
7.286139578E-02 
-4.648166941E-05 
-8.024551207E-04 


-2.207770012E-02 
-5.085912999E-04 
-3.539172394E-05 
-4.141298123E-03 
-2.933849755E-04 
-2.137309872E-02 
-1.676499262E-03 
-7 . 543955871E-05 
7.188423723E-02 
-8.079487598E-04 
-1 . 232464 565E-03 
-2.296584472E-02 
-2.037926461E-04 
-3 . 819882171E-03 
-4.182030447E-03 
-3.264052793E-04 
-2.276484482E-02 
-8.733025170E-04 
-6.120262551E-04 
7.168762386E-02 
-9.462537855E-05 
-1. 275789808E-03 
-1.883693598E-02 
-8 . 0385558 2 5E-05 
-2.610717667E-03 


-4.036562052E-03 
-3.182469809E-04 
-2.020356990E-02 
-1.661071205E-03 
-1.578825468E-04 
7 . 233631611E-02 
-8.484872524E-04 
-1.137384330E-03 
-2. 28790026 2E-02 
-3.911017266E-04 
-3.644940909E-03 
-4.255419597E-03 
-3.207823902E-04 
-2.265670523E-02 
-1.447876566E-03 
-6 . 154816365E-04 
7.147631794E-02 
-1.151612669E-04 
-1.372177736E-03 
-2. 234138362E-02 
~1. 55799134 5E-04 
-3.743516048E-03 
-1.895710375E-05 
-1.520892547E-04 
-1.881437749E-02 


-1.629635692E-03 
-1.972675964E-04 
7.317339629E-02 
-8 . 598 56605 5E- 04 
-5.052157212E-05 
-2.272206917E-02 
-4.653002543E-04 
-3.406218952E-03 
-4.254736472E-03 
-1.193181306E-04 
-2.242304757E-02 
-1.614855370E-03 
-5.958434194E-04 
7 . 14 92381 39E-02 
-3.879829019E-04 
-1. 36 3929594 E-03 
-2.286832035E-02 
-1.839817996E-04 
-3. 9377734 07E-03 
-2.666509477E-03 
-2.783817472E-04 
-2. 225594409E-02 
-2.885574031E-05 
-3.228292044E-04 
9.432584047E-02 


Sample  output  for  AER01 


I 
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CAILRN 


This  subroutine  calculates  the  change  in  a  composite  wing  angle  of 
attack  from  a  one  radian  change  in  aileron  deflection  on  the  left  semi¬ 
span. 


111 


SUBROUTINE  CAILRN 


this  subroutine  calculates  the  change  in  a  composite  wing  AOA 
resulting  from  a  one  radian  change  in  aileron  deflection 
left  wing  only 

DIMENSION  COSMAT(  20 ) , S INMAT ( 20) , ALPHAD( 20 ) , AALPHA(  20 ) 

DIMENSION  EP( 20 , 20 ) , EI0  (  20 , 20 ) , El 3 ( 20 , 20 ) , EE( 20 , 20 ) 

C0MMON/C1/NP , Q,  CM(  20 ) ,  CMDEL(  20 )  ,  SHAPE (  20 ) ,  SWEEP  (  20 ) 

C0MMON/C2/H ( 20 ) , El ( 20 ) , GJ ( 20 ) , AK ( 20 ) , C ( 20 ) , DALPHA( 20 ) 

NP  -  number  of  spanwise  panels  in  wing  semi -span 
Q  -  dynamic  pressure  for  flight  condition  (psi) 

SHAPE  -  aileron  segment  deflection  normalized  to  largest  value 
and  negative,  example: 

-1.0  if  deflects  same  amount 
-0.5  if  deflects  half  as  much 
0.0  if  no  deflection 

CM  -  partail  derivative  of  section  lift  coefficient  wrt 
control  deflection  divided  by  the  partial  wrt  AOA 
CMDEL  -  partial  derivative  of  pitching  moment  wrt  control  deflection 
of  aileron  segment  on  panel 
H  -  y-axis  width  of  panel  (in.) 

C  -  aerodynamic  chord  at  middle  of  panel  ( in . ) 

SWEEP  -  sweep  of  structural  reference  axis  of  panel  (deg) 

El  -  bending  stiffness  of  wing  box  beam  (psi) 

GJ  -  torsional  stiffness  of  wing  box  beam  (psi) 

AK  -  K,  bending -tors ion  coupling  parameter 

DO  10  I-1,NP 
change  to  radians 

SWP-SWEEP ( I ) *ACOS( "1 . 0 ) /180 . 0 
diagonal  terms  of  eqns  B23  and  B24  of  NACA  TN  3030 
COSMAT ( I ) -COS ( SWP ) 

10  S INMAT ( I ) “SIN (SWP ) 

initializing  matrices 
DO  30  I-1,NP 
DO  20  J«1,NP 
EE( I,J)-0.0 
EI0(I,J)-0.0 
20  EP( I , J)“0. 0 
30  CONTINUE 

NPM1-NP-1 

constructing  [10]  matrix,  page  88  of  NACA  TN  3030 
upper  triangular  terms 
DO  50  1-1 , NPM1 
II-I+l 

DO  40  J-II,NP 
40  EI0(I,J)-1.0 
50  CONTINUE 
diagonal  terms 
DO  60  I-1,NP 
60  EI0(I,I)-0.50C 

[13]  of  page  88  of  NACA  TN  3030  is  just  transpose  of  [10] 

DO  80  I-1,NP 


nvivinfivvnimfvnfvwirinivv 


DO  70  J-1,NP 
70  EI3 ( I , J )-EI0( J / I ) 

80  CONTINUE 

c  eqn  F6  of  NACA  TN  3030 
c  derived  from  eqn  F6  of  NACA  TN  3030 
DO  90  I-1,NP 

EE( I , I )“H( I )  *SINMAT( I ) *S INMAT ( I >/( C0SMAT( I ) *EI ( I ) ) 

EE( I , I ) “EE( I,I)-2*H(I) *S INMAT ( I)*AK(I)/(EI(I)*GJ(I)) 
EE(I,I)-EE(I,I)+H(I)*COSMAT(I)/GJ(I) 

c  FAC  “  (1  -  )cg)  where  V  -  K/EI  and  g  -  K/GJ 
C  page  7  of  AFFDL-TR-79-3087 

FAC-1.0-<AK(I)**2)/(EI(I)*GJ(I)> 

90  EE(I,I)-EE(I, I)/FAC 

c  pre-multiply  by  (10] 

DO  120  I-1,NP 
DO  110  J-1,NP 
SUM1-0 . 0 
DO  100  K-1,NP 

100  SUM1-SUM1+EI0(I,K)*EE(K,J) 

110  EP(I,J)-SUM1 
120  CONTINUE 

c  post-multiply  by  [13] 

DO  150  I-l.NP 
DO  140  J-1,NP 
SUM1-0.0 
DO  130  K-1,NP 

130  SUM1-SUM1+EP(I,K)*EI3(K,J) 

140  EE( I , J) “SUM1 
150  CONTINUE 

DO  170  I-1,NP 
DO  160  J-1,NP 

160  EE(I,J)-EE(I,J)«H(J)*(C(J)**2) 

170  CONTINUE 

DO  190  I-1,NP 
SUM1-0.0 
DO  180  J-1,NP 

180  SUM1-SUM1  +  EE( I, J) *CMDEL( J ) *SHAPE( J ) 

c  ALPHAD  is  change  in  AOA  due  to  change  in  section  pitching  moment 
c  from  twist  produced  by  one  radian  aileron  deflection 
c  eqn  C-8  of  AFFDL-TR-79-3087 
190  ALP HAD ( I )-Q»SUMl 

c  AALPHA  is  the  apparent  change  in  AOA  of  wing  section  due  to  one  radian 
c  aileron  deflection  (change  in  chamber  of  mean  chord  line) 
c  eqn  39  from  AFFDL-TR-3087 
DO  200  I“1 , NP 
AALPHA ( I )-SHAPE( I ) *CM< I ) 

c  DALPHA  is  the  total  AOA  change  due  to  one  rad.  change  in  aileron  deflection 
c  eqn  39  from  AFFDL-TR-79-3087 

200  DALPHA ( I )-ALPHAD(  I )+AALPHA( I ) 
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A 


RETURN 

END 


PROGRAM  CLN 

c  sample  run  for  subroutine  CAILRN 
c  present  limit  twenty  semi-span  panels 

COMMON/C 1/NP,Q, CM ( 20) , CMDEL( 20) ,SHAPE(20) ,  SWEEP ( 20) 
COMMON/C2/H ( 20 ) , El ( 20 ) , GJ( 20 ) , AK( 20 ) , C( 20 ) ,DALPHA(20) 

READ  (5,*)  NP,Q 
DO  10  I-1,NP 

READ  (5,*)  C( I ) , H( I ) / El ( I ) , GJ( I ) , AK( I ) 

10  READ  (5,*)  SWEEP ( I ) , CM( I ) , CMDEL{ I ) , SHAPE  ( I ) 

WRITE  (6,*)  "CAILRN  RESULTS" 

WRITE  (6,*) 

WRITE  (6,*)  "PANEL","  ", "DALPHA" 

CALL  CAILRN 


DO  20  I-1,NP 

20  WRITE  (6,*)  I , DALPHA ( I ) 
END 


Sample  10  program  for  CAILRN 


10 

1724 

9.0 

4.5 

.  49355E+05 

.  16017E  +  05 

.  58220E+03 

18.4 

0.5854 

-0.64 

-1.0 

12.0 

4.5 

.  70260E+05 

. 22801E+05 

.  82879E+03 

18.4 

0.5854 

-0.64 

-1.0 

15.0 

4.5 

.  91165E+05 

.  29584E+05 

. 10754E+04 

18.4 

0.5854 

-0.64 

-1.0 

18.0 

4.5 

.  11207E+06 

.  36368E+05 

. 13220E+04 

18.4 

0.5854 

-0.64 

-1.0 

21.0 

4.5 

.  13297E+06 

.  43152E+05 

. 15686E+04 

18.4 

0.5854 

-0.64 

-1.0 

24.0 

4.5 

.153886+06 

•49936E+05 

. 18152E+04 

18.4 

0.5854 

-0.64 

-1.0 

27.0 

4.5 

.  17478E+06 

. 56720E+05 

. 20618E+04 

18.4 

0.5854 

-0.64 

0.0 

30.0 

4.5 

19569E+06 

. 63  504E+05 

. 23084E+04 

18.4 

0.5854 

-0.64 

0.0 

33.0 

4.5 

,  21659E+06 

. 70288E+05 

. 25550E+04 

18.4 

0.5854 

-0.64 

0.0 

36.0 

4.5 

23750E+06 

.77072E+05 

. 28016E+04 

18.4 

0.5854 

-0.64 

0.0 

Sample  input  for  CAILRN 


CAILRN  RESULTS 

PANEL  DALPHA 

1  -1.539785266E-01 

2  -1.640512347E-01 

3  -1.838048398E-01 

4  -2. 145894468E-01 

5  -2. 580627203E-01 

6  -3. 160042167E-01 

7  2.021546811E-01 

8  1.369802803E-01 

9  7. 845127583 E-02 

10  2. 533532120E-02 


Sample  output  for  CAILRN 


mm 
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CDIVRG 


lj  it  I.r  >-i 


This  subroutine  calculates  the  divergence  speed  for  a  composite 
wing  using  an  empirical  approach. 


;  ffi 
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SUBROUTINE  CDIVRG 


c  this  subroutine  calculates  the  divergence  dynamic  pressure  (psi) 
c  and  divergence  speed  (mph)  for  a  composite  wing 


COMMON/CD/RHO ,  AO ,  SWEEP  ,  RL ,  TR ,  C ,  El ,  GJ  ,  AK  ,  E ,  AR ,  QDIV  ,  VDIV 


RHO  -  air  density  at  flight  condition  ( lbf *sec* *2/ft* *4 ) 

AO  -  2-dimensional  section  lift-curve  slope  for  section,  same 
full  span 

SWEEP  -  sweep  of  wing  reference  axis,  positive  aft  (deg.) 

RL  -  length  of  semi-span  along  reference  axis  (in.) 

TR  -  taper  ratio  of  semi-span 

C  -  root  chord  perpendicular  to  reference  axis  (in.) 

El  -  bending  stiffness,  at  root  if  tapered  wing  (psi) 

GJ  -  torsional  stiffness,  at  root  if  tapered  wing  (psi) 

AK  -  K,  bending-torsion  coupling  parameter,  at  root  if 
tapered  wing 

E  -  y-axis  distance  between  reference  axis  and  aerodynamic 
center,  at  root  if  tapered  wing  (in.) 

AR  ■  semi-span  aspect  ratio 


NDV-0 


c  conversion  to  radians 

SWP-SWEEP » ACOS ( - 1 . 0 ) /I 8 0 . 0 


c  eqns  B-55  and  B-56  of  AFFDL-TR-78-116 
c  composite  nondimensional  bending  coupling  parameter 
AKR-K/EI 

c  composite  nondimensional  torsion  coupling  parameter 
GR-K/GJ 


ARG1- ( GJ/EI ) * ( RL/E ) 


c  correction  of  2-D  lift-curve  slope  for  planform  effects 
c  eqn  4a  of  NACA  TN  1680 

AOOAO*AR/(  AR+4  *C0S(  SWP  )  ) 

ARG2-C* ( RL*  *  3 ) *A0C* (COS ( SWP ) *  *2 ) 


c  check  for  tap>er 

IF  (TR.LT.1.0)  GO  TO  10 


for  constant  chord,  untapered  wing 
ARG3-2 . 47* ( 1-AKR*GR ) /ARG2 
ARG4-0. 39*(TAN(SWP)-GR) 


c  divergence  dynamic  pressure  (psi),  no  taper 
c  eqn  C-18  of  AFFDL-TR-78-116 

QDIV-ARG3*EI/( ( 1-AK*TAN ( SWP )  )/ARGl-ARG4 ) 


GO  TO  20 


for  tapered  wing 


10  ARG3-GJ*(RL/E)/ARG2 


c  linearized  approximation  for  table  on  page  55  of 
c  AFFDL-TR-78-116 

RK1“ ( 6 . 1301-TR)/2 .0801 


,  **,  ■*.  **»*’»•*»  ■ 
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RK2- ( 2 . 8149~TR)/4 .4114 


t^i  -\r 


ARG4-RK1* ( 1~AKR*GR) 

ARG 5 -RK 2 * ARG 1 * ( TAN ( SWP ) -G R > 


QDIV-ARG3*ARG4/((1-AKR*TAN(SWP))-ARG5) 


c  conversion  to  inches 
20  RHO-RHO/( 12**4) 
c  divergence  speed  (in/sec)* *2 
VDIV- 2 . 0*QDIV/RHO 


c  test  for  no  divergence  (negative  divergence  velocity) 
IF  (VDIV.LT.0.0)  NDV-1  y; 

IF  (VDIV.LT.0.0)  GO  TO  30 

c  coversion  to  feet 

VDIV-SQRT( VDIV) /12 . 0 
c  conversion  to  mph 

VDIV- ( 3600. 0*VDIV/5280. 0) 

30  RETURN 
END 


PROGRAM  CDV 

c  sample  run  for  subroutine  CDIVRG 

COMMON/CD/RHO , A0 , SWEEP , RL , TR , C , El , GJ , AK , E , AR , QDIV , VDIV 


0 

,1 


READ  (5,*)  RHO, A0, SWEEP, RL,TR 
READ  (5,*)  C , El ,GJ , AK , E , AR 

CALL  CDIVRG 

IF  (NDV.GT.0)  WRITE  (6,*)  "THIS  WING  WILL  NOT  DIVERGE" 
IF  (NDV.GT.0)  GO  TO  10 

WRITE  (6,*)  "DIVERGENCE  DYNAMIC  PRESSURE  (PSI)  -  "  ODIV 
WRITE  (6,*)  '  ,w 

WRITE  (6,*)  "DIVERGENCE  SPEED  (MPH)  -  ”,VDIV 
10  END 


Sample  10  program  for  CDIVRG 


K 


B  * 
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0.002308  6.28  18.4  47.4  0.2 

36.13  248000.  80460.  2925.  9.375  4.0 

Sample  input  for  CDIVRG 


DIVERGENCE  DYNAMIC  PRESSURE  (PS I)  -  1.5355657 04 E- 01 

DIVERGENCE  SPEED  (MPH)  -  9 . 438024902E+01 

Sample  output  for  CDIVRG 


CFLEX 


This  subroutine  calculates  the  flexibility  matrix  for  the  left 
semi-span  of  a  composite  box  beam  wing. 


SUBROUTINE  CFLEX 


c  this  subroutine  determines  the  composite  wing  flexibility  matrix 
c  [S],  left  wing  only 


DIMENSION  D(20) ,F( 20), U( 20,20 ),M( 20,20) ,T(  20, 20) 

DIMENSION  TRANS1 ( 20 ) , TRANS 2 ( 20 ) , TRANS3 ( 20 ) , V( 20 , 20 ) 
DIMENSION  COSMAT( 20) ,SINMAT( 20) , FAC( 20) ,R1(  20, 20 ) ,  R2(  20 , 20) 


COMMON /F 1/S (20,20),X(20),Y(20),H(20),E(20), SWEEP ( 20 ) 
C0MM0N/F2/EI ( 20 ) , GJ( 20 ) , AK( 20 ) , NP 


REAL  M 


NP  -  number  of  panels  in  semi-span 

X  -  x-axis  intercept  of  panel  midchord  and  reference  axis  (in.) 
Y  -  as  in  X  but  for  y-axis 
H  -  width  of  panel  along  y-axis  (in. ) 

E  -  x-axis  distance  from  reference  axis  to 
aerodynamic  center  of  panel  (in.) 

SWEEP  -  sweep  of  reference  axis  on  panel  from  y-axis 
positive  aft  (deg) 

El  -  bending  stiffness  of  box  beam  (psi) 

GJ  -  torsional  stiffness  of  box  beam  (psi) 

AK  -  K,  bending-torsion  coupling  parameter  of  box  beam 


NPM1-NP-1 


DO  10  I-1,NPM1 
elements  of  matrices  below 
D(  I )“Y( I )-Y ( 1+1 ) 

10  F(I)-X(I)-X(I+1) 


DO  20  I-1,NP 
conversion  to  radians 

SWP-SWEEP ( I ) * ACOS ( -1 . 0 ) /180 . 0 

NACA  TN  3030  eqn  B23  and  B24,  diagonal  terms  only  (nonzero) 
COSMAT ( I ) -COS ( SWP  ) 

20  SINMAT( I )-SIN(SWP) 


c  initializing  matrices 
DO  40  I-l , NP 
DO  30  J-l , NP 
U(I,J)-0.0 
Rl( I , J)-0 . 0 
30  R2 ( I , J)-0 . 0 
40  CONTINUE 


nonzero  elements  of  C  (see  below) 
DO  70  1-2, NP 
IM1-I-1 
DO  60  J-l, IM1 
FSUM-0 . 0 
DSUM-0 . 0 
DO  50  K-J , IM1 
DSUM-DSUM+D(K) 

50  FSUM-FSUM+F(K) 


c  TN  3030  eqn  B26  and  B27 

R1 ( I , J ) -DSUM»COSMAT( I ) 


R2(I,J)-DSUM*SINMAT(I) 
c  eqn  B25  from  NACA  TN  3030 
60  U(I,J)-E(J)-FSUM 
70  CONTINUE 

c  diagonal  terms 
DO  80  I-1,NP 

R1(I,I)-H(I)/(8.0*COSMAT(I) )-E(I)*SINMAT(I)/2.0 
80  R2(I,I)-E(I)*COSMAT(I)/2.0 

c  initializing 

DO  100  I-1,NP 
DO  90  J-1,NP 
M(I,J)-0.0 
90  T(I,J)-0.0 
100  CONTINUE 

c  TN  3030  eqn  B34  and  B35 
c  diagonal  terms 

DO  110  I-1,NP 
M(I,I)—  SINMAT(I)/2.0 
110  T(I,I)-COSMAT(I)/2.0 
DO  130  I“1 , NPM1 
c  off-diagonal  terms 
IP1-I+1 

DO  120  J-IP1,NP 
M(I,J)—  SINMAT(J) 

120  T(I,J)-COSMAT(J) 

130  CONTINUE 

C  *****  MUST  PROVIDE  THE  STRUCTURAL  PROPERTIES  EI,GJ,K  * 
DO  140  I-1,NP 

C  from  AFFDL-TR-79-3087  k-K/EI  and  g-K/GJ 
c  FAC  is  (1  -  kg)  term 

140  FAC(I)-1.0-(AK(I)**2)/(EI(I)*GJ(I)) 

c  following  is  eqn  A-16  from  AFFDL-TR-79-3087 
c  (refer  to  eqn  B-37  from  NACA  TN  3030) 

DO  150  I-1,NP 

TRANS 1( I )“H( I )/COSMAT( I )/( El ( I ) *FAC( I ) ) 

TRANS 2 ( I )~H( I )/C0SMAT( I }/(GJ( I ) *FAC( I ) ) 

150  TRANS3 (I)”H(I)*(AK(I )/GJ (I))/(EI{I)*FAC(I) )/C0SMAT( I ) 

DO  170  I-1,NP 
DO  160  J-1,NP 

A-(R1(I,J)-SINMAT(I)*U(I,J) )*H(J) 
B-(R2(I,J)+C0SMAT(I)*U( I,J) )*H(J) 

U(I,J)-TRANS1(I)*A 
V(I,J)-TRANS2(I)*B 
R1(I,J)-TRANS3(I)*A 
160  R2( I < J)”TRANS3  ( I ) *B 
170  CONTINUE 

DO  200  1-1 , NP 
DO  190  J“1 , NP 
SUM1-0 . 0 
SUM2-0.0 
DO  180  K”1 , NP 
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SUM1-SUM1+M ( I , K )  * <  U(  K , J ) +R2 ( K , J ) ) 
180  SUM2-SUM2+T ( I , K ) * ( R1 ( K , J ) +V ( K , J ) ) 

fexibility  matrix 
190  S(I,J)-SUM1+SUM2 
200  CONTINUE 

RETURN 

END 


PROGRAM  CF 

sample  run  for  subroutine  CFLEX 
present  limit  twenty  semi-span  panels 

COMMON/F1/S( 20,20),X(20),Y(20),H(20),E(20), SWEEP ( 20 ) 
C0MM0N/F2/EI ( 20 ) , GJ ( 20 ) ( AK ( 20 ) , NP 

READ  (5,*)  NP 
DO  10  I-l , NP 

READ  (5,*)  X(I),Y(I),H(I),E(I), SWEEP  ( I > 

10  READ  (5,*)  El ( I ) , GJ ( I ) , AK ( I ) 

CALL  CFLEX 

WRITE  (6,*)  ((S(I,J),J-1,NP),M,NP) 

END 


Sample  10  program  for  CFLEX 


10 


14.22  4: 

49355. 


91165. 
9.73  2! 


8.23 


6.74 


5.24 


3.74 


2.25 


0.75 


75  4.5 

1.866 

18.4 

16017. 

582.20 

25  4.5 

2.657 

18.4 

22801. 

828.79 

75  4.5 

3.447 

18.4 

29584. 

1075.4 

25  4.5 

4.237 

18.4 

36368. 

1322.0 

75  4.5 

5.028 

18.4 

43152. 

1568.6 

25  4.5 

5.818 

18.4 

49936. 

1815.2 

75  4.5 

6.609 

18.4 

56720. 

2061.8 

25  4.5 

7.399 

18.4 

63504. 

2308.4 

5  4.5 

8.189 

18.4 

70288. 

2555.0 

5  4.5 

8.930 

18.4 

77072. 

2801.6 

Sample  input  for  CFLEX 


5 . 4 9113377 9E-04 
7 . 069502957E-03 
3.113932675E-03 
5.804807879E-03 
5. 973002873E-03 
-1.512221526E-03 
7 . 069502957E-03 
3 . 1 13 93267 5E-03 
3. 8838 10714 E-03 
5.973002873E-03 
-2.075510565E-03 
6.507211830E-03 
3.113932675E-03 
1.522687031E-03 
5.973002873E-03 
-1.726213144E-03 
3 . 423580434E-03 
3 . 11393267 5E-03 
3 . 973522689E-04 
3 . 886856604E-03 
-8.622845635E-04 
1 . 136222272E-03 
2. 546535106E-03 
2. 223375486E-05 
6 . 676365156E-04 


4.016366787E-03 
6 . 762558594E-03 
1.136320876E-03 
6.779769436E-03 
4.742434714E-03 
2. 181915566 E-03 
6.762558594E-03 
1.136320876E-03 
6.220048293E-03 
4. 74 24 34714 E-03 
2.228990197E-04 
6. 762558594 E-03 
1.136320876 E-03 
3. 2812037 97 E-03 
4. 742434714 E-03 
-4.356959835E-04 
4 . 702845123E-03 
1 . 136320876E-03 
1.271114685E-03 
4 . 175885580E-03 
-3.614670131E-04 
1.632672967E-03 
1.136320876E-03 
1. 838408934 E- 04 
8.292436250E-04 


5.804807879E-03 
5.973002873E-03 
-5. 95177 52 38E-04 
7 . 069502957E-03 
3 . 11393 267 5E-03 
5.248665810E-03 
5.973002873E-03 
-1.950709615E-03 
7. 069502957 E-03 
3 . 11393  2675E-03 
2. 501267474 E-03 
5. 973002873E-03 
-1.981792506 E-03 
5.041116383E-03 
3 . 11393 2675E-03 
8.435694035E-04 
5.407503806E-03 
-1.343934564E-03 
2. 145570237 E-03 
3. 113932675E-03 
1.349840313E-04 
2.133490983E-03 
-2.998266136E-04 
3.455760889E-04 
9. 895686526 E- 04 


Sample  output  for  CFLEX 
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6.779769436E-03 
4. 742434714 E-03 
3. 465960734 E-03 
6. 7625585 94E- 03 
1.136320876E-03 
6.7797694  36E-03 
4 .742434714 E-03 
9 . 793 24 80 2 8E- 04 
6. 7625585 94 E-03 
1.136320876 E-03 
4.797854926E-03 
4. 742434714 E-03 
-2. 218801528E-04 
6.198494695E-03 
1. 136320876E-03 
2. 133063274 E-03 
4. 742434714 E-03 
-4 . 694792442E-04 
3 . 012401052E-03 
1 . 136320876E-03 
6 . 354047218E-04 
2.633911557E-03 
-1. 380913891E-04 
5.059011746E-04 
5 . 681604  380E- 04 


CSTRUC 


This  subroutine  determines  the  material  properties  (El,  GJ,  K)  for 
a  composite  box  beam  representation  of  a  wing.  It  has  been  formulated 
to  permit  the  most  general  structure;  nonlinear  planform  taper  and 
nonlinear  spanwise  thickness  taper.  All  plies  in  the  laminate  must  be 
of  the  same  composite  material. 

Three  examples  are  provided;  a  linearly  tapered  wing  with  constant 
spanwise  thickness,  a  nonlinearly  tapered  wing  with  constant  spanwise 
thickness,  and  a  nonlinearly  tapered  planform  with  a  nonlinearly  tapered 
spanwise  thickness,  in  that  order. 


SUBROUTINE  CSTRUC 


c  determines  material  properties  for  a  composite  box  beam  (wing) 
c  El,  GJ,  and  K 

c  for  a  linearly  tapered  or  general  planform 

c  and  a  constant  thickness  or  tapered  thickness  (linear  or  nonlinear) 
c  assumes  laminate  all  of  same  composite  material 

DIMENSION  BETA ( 60 ) , DELTA( 60 ),T(60),NR(60) 

C0MM0N/C1/EI ( 20 ), GJ ( 20 ) ,AK( 20) , SSPAN, CSR, SWEEPR, TAPER, Y(  20)  ,  NR  (60) 
COMMON/C  2/El ,E2,P12,G12,DR,N,NV,NP,NLIN, NTAP ,  M 
COMMON/C3/ZNL(60) , ZNU(60) , THETA ( 60 ) ,CS( 20 ) 

c  El  -  panel  bending  stiffness  (psi) 

c  GJ  -  panel  torsional  stiffness  (psi) 

c  AK  -  K,  panel  bending-torsion  coupling  parameter 

c  El  -  modulus  of  elasticity  along  axis  1  of  material  (psi) 

c  E2  “  modulus  of  elasticity  along  axis  2  of  material  (psi) 

c  P12  -  Poisson's  ratio  for  1-2  axes 

c  G12  -  shear  modulus  for  1-2  axes  (psi) 

c  N  -  number  of  plies  in  box  beam  laminate 

c  (at  root  for  spanwise  thickness  taper) 

c  NV  -  number  of  variable  plies 

c  NP  ■  number  of  panels  in  wing  semi-span 

c  DR  -  incremental  rotation  of  variable  plies  (positive  fwd,  rad) 

c  ZNL  -  distance  from  mid-plane  of  box  beam  to  lower  surface  of 

c  ply,  positive  up  (in.) 

c  ZNU  -  as  for  ZNU  but  for  upper  surface  of  ply 

c  THETA  -  initial  orientation  of  ply  (rad.)  measured  from 

c  structural  root,  positive  forward 

c  NOTE:  for  ZNU, ZNL  &  THETA,  input  variable  plies  first 
c  TAPER  -  taper  ratio 

c  SSPAN  -  semi-span  (in.) 

c  SWEEPR  -  reference  chord  sweep  at  root  (deg) 

c  CSR  -  structural  root  chord,  perpendicular  to  reference  axis  (in.) 

c  CS  -  structural  root  chord  (perpendicular  to  reference  axis)  at  middle 

c  of  each  panel  (in.),  panel  1  (one)  is  at  wing  tip 

c  NLIN  -  0,  not  a  linearly  tapered  planform 

c  -  1,  linearly  tapered  planform 

c  NTAP  -  0,  nonlinearly  tapered  spanwise  thickness 

c  1,  constant  spanwise  thickness  (constant  properties) 

c  4,  linearly  tapered  spanwise  thickness 

c  (linearly  tapered  planform  only) 

c  NR  -  ply  numbers  to  be  removed  from  panel 

c  NOTE:  for  NR,  numbered  as  they  are  input,  remove  only  outside  plies 

=  defining  pi 

PI-AC0S(-1. ) 

c  Poisson's  ratio  for  2-1  axes 

c  eqn  2.26  in  MECHANICS  OF  COMPOSITE  MATERIALS  by  Jones 
P21-P12*E2/E1 

c  eqn  2.61  of  JONES 

Q11-E1/(1.0-P12*P21) 

Q22-E2/(1.0-P12*P21) 

Q12-P21*Q22 

Q66-G12 
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c  eqn  2.94  of  JONES 

Ul-( 3. 0*Qll+3.0*Q22+2. 0*Q12+4. 0*066 )/8. 0 
U2-(Qll-Q22)/2.0 

U3*(Qll+Q22-2 . 0*012-4 . 0*Q66 )/8 . 0 
U4-(011+Q22+6 .0*012-4 . 0*Q66 )/8 .0 
U5-(Qll+Q22-2 . 0*Q12+4 . 0«Q66 }/8 . 0 

c  check  for  input  error 

IF  ( (NLIN. EQ. 0) .AND. (NTAP . EQ. 4 ) )  GO  TO  10 
GO  TO  20 

10  WRITE  (6,*)  "INPUT  ERROR,  NLIN-0  &  NTAP-4  NOT  PERMITTED" 

GO  TO  140 

c  following  for  all  but  case  of  nonlinear  planform  taper 
c  and  nonlinear  thickness  taper 

20  IF  ((NLIN. EQ.0) .AND. (NTAP. EQ.0) )  GO  TO  40 

DO  30  I-1,N 

c  ply  thickness 

T(I)-ZNU(I)-ZNL(I) 

c  eqns  A-26  and  A-27  of  AFFDL-TR-78-116 
c  area  moment  of  inertia  of  ply  with  unit  width 

BETA( I)“(T(I)**3+3.0*T(I ) *ZNL( I ) *  *2+3 . 0*ZNL( I)*T(I)**2)/3.0 
c  first  moment  of  area  about  the  mid  plane 
30  DELTA ( I )-T( I ) *  (  ZNU( I )  +  ZNL( I ) )/2 . 0 

GO  TO  70 

40  DO  60  I-1,N 
c  removing  plies 
DO  50  J-1,N 

50  IF  (I.EQ.NR(J))  GO  TO  60 

ply  thickness 

T(I)-ZNU(I)-ZNL(I) 

c  eqns  A-26  and  A-27  of  AFFDL-TR-78-116 
c  area  moment  of  inertia  of  ply  with  unit  width 

BETA( I)-(T(I)**3  +  3.0*T(I) *ZNL( I ) *  *2+  3 . 0*  ZNL( I)*T(I)**2)/3.0 
c  first  moment  of  area  above  about  the  mid  plane 
DELTA ( I ) _T( I ) * ( ZNU( I ) +ZNL( I ) )/2.0 
60  CONTINUE 

c  initialization 
70  Sl-0.0 

52- 0.0 

53- 0.0 

54- 0.0 

55- 0.0 

56- 0.0 

c  following  for  nonvariable  plies  only 
IF  (NV.GE.N)  GO  TO  90 
NFIX-NV+1 


DO  80  I-NFIX,N 
Dl-THETA(I) 


127 


D12-2.0«D1 

D14-4.0*D1 


i  >‘4. 


c  eqns  2.93  of  JONES 

BQ22-Ul-U2*COS(D12)+U3*COS(D14) 

BQ26- . 5«U2*SIN(D12)-U3«SIN(D14 ) 

BQ66-U5-U3*COS(D14) 

c  summations  for  later  use 

51- S1+BQ22*BETA(I) 

52- S2+BQ22*DELTA( I ) 

53- S3+BQ22*T(T) 

54- S4+BQ26*BETA(I) 

55- S5+BQ26*DELTA(I) 

80  S6-S6+BQ66*BETA(I) 

c  redifining  summation  from  nonvariable  plies 
90  SQ22B-S1 
SQ22D-S2 
SQ22T-S3 
SQ26B-S4 
SQ26D-S5 
SQ66B-S6 

c  following  for  variable  plies  only 
IF  (NV.LE.O)  GO  TO  110 

c  summation  now  for  all  plies 
DO  100  I-1,NV 

c  rotating  variable  plies 
Dl-DR-t-THETA(I) 

D12-2.0*D1 

D14-4.0*D1 

c  eqns  2.93  of  JONES 

BQ22-Ul-U2*COS<D12)HJ3*COS(D14) 

BQ26-. 5*U2*SIN(D12)-U3*SIN(D14 ) 

BQ66-U5-U3  «COS ( D14 ) 

c  from  eqns  A-28  through  A-34  of  AFFDL-TR-78-116  without  constants 
SQ22B-S022B+BQ22*BETA{ I ) 

SQ22D-SQ22D+BQ22*DELTA(  I) 

SQ22T-SQ22T+BQ22*T(  I ) 

SQ26B-SQ26B+BQ26*BETA< I ) 

SQ26D-SQ26D+BQ26*DELTA(  I) 

100  SQ66B-SQ66B+BQ66*BETA(  I ) 

c  following  for  all  but  case  of  nonlinear  planform  taper 
c  and  nonlinear  thickness  taper 

110  IF  (  (NLIN.EQ.0)  .AND.  (NTAP.EQ.0))  GO  TO  130 

IF  (NLIN.EQ.l)  COCSR 

SWPR-SWEEPR* PI/180 . 0 

c  this  portion  of  subroutine  is  run  for  each  laminate  rotation  case 

c  for  each  panel 

DO  120  I-1,NP 


■ 
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IF  ( ( NLIN . EQ. 0 ) . AND . ( NTAP . EQ. 1 ) )  CC-CS(I) 


c  eqn  B-26  of  AFFDL-TR-76-116  (see  also  NACA  TO  1680  page  18) 
c  rotating  y-axis  to  align  with  reference  axis  and 

IF  (NLIN.EQ. 1)  F-1.0-(Y(I)/SSPA*J)»(1.0-TAPER)/COS(SWPR) 

IF  ((NLIN. EQ.O). AND. (NTAP. EQ.l))  F-1.0 

c  material  properties  for  this  laminate 
c  eqn  8  and  eqns  B-60  through  B-62  of  AFFDL-TR-78-116 
EI(I)-(CC*(SQ22B-(SQ22D**2)/SQ22T) )*F*NTAP 
GJ(I)-(CC*(4*SQ66B-( (2*SQ26D)**2)/S022T) )*F*NTAP 
120  AK(I)-(CC*2*(SQ26B-SQ22D*SQ26D/SQ22T) )*F*NTAP 

GO  TO  140 

c  this  portion  of  the  subroutine  is  run  once  for  each  panel 

c  following  for  nonlinear  planform  taper  and  thickness  taper 
c  must  input  CS  and  NPR  for  each  NCASE 

c  redefining  for  function 
130  CC-CS(M) 

c  material  properties  for  this  laminate 
c  eqn  8  and  eqns  B-60  through  B-62  of  AFFDL-TR-78-116 
El (M)“CC* (SQ22B- ( SQ22D*  *2 )/SQ22T) 

GJ(M)-CC*(4*SQ66B-( (2*SQ26D)**2)/SQ22T) 
AK(M)-CC*2*(SQ26B-SQ22D*SQ26D/SQ22T) 

140  RETURN 
END 

* 


PROGRAM  CST 


c  sample  run  for  subroutine  CSTRUC 

c  present  limit  twenty  semi-span  panels  and  sixty  composite  plies 

C0MM0N/C1/EI  (  20 )  ,GJ(  20 )  ,  AK(  20  )  ,'SSPAN ,  CSR ,  SWEEPR ,  TAPER ,  Y (  20 ) ,  NR(  60 ) 
COMMON/C 2/El , E2 , PI 2 , G 12 , DR , N , NV , NP , NLI N , NTAP ,  M 
CQMMON/C3/ZNL{ 60 ) , ZNU( 60 ) , THETA ( 60 ) , CS( 20 ) 

c  defining  pi 

PI-ACOS ( -1 . ) 

READ  (5,*)  El / E2 , P12 , G1 2 

READ  (5,*)  N,  NV , NP, NCASE, NLIN, NTAP , DDEL 

DO  10  I-1,N 

READ  (5,*)  ZNL( I ) , ZNU{ I ) ,THETA( I ) 

IF  (I.EQ.l)  THETAl-THETA(I) 
c  change  to  radians 

10  THETA(I)-THETA(I)*PI/180.0 

c  read  only  if  linear  planform  taper 
IF  (NLIN.EQ.0)  GO  TO  30 

READ  (5,*)  SSPAN, CSR, SWEEPR, TAPER 

DO  20  I-1,NP 
20  READ  (5,*)  Y( I ) 

GO  TO  50 

c  read  only  if  non-linear  planform  taper  but  constant  thickness 
30  IF  ((NLIN.EQ.0). AND. (NTAP. EQ.0)}  GO  TO  50 
DO  40  I-1,NP 
40  READ  (5,*)  CS(I) 

50  WRITE  ( 6 ,  * )  "  THE  FIRST  ",NV,"  PLIES  WILL  BE  VARIED" 

WRITE  (6,*) 

WRITE  (6,*) 

D-0.0 

c  for  each  rotation  case 
DO  110  L-l, NCASE 

c  converting  ply  rotation  to  radians 
DR-D*PI/180.0 

DD-D+THETA1 

WRITE  (6,*)  "FIRST  VARIABLE  PLY  ORIENTATION  -  " , DD 
WRITE  (6,*) 

WRITE  (6,120) 

IF  ((NLIN.EQ.0) .AND. (NTAP. EQ.0))  GO  TO  70 
CALL  CSTRUC 


60  WRITE  (6,130)  I , El ( I ) ,GJ( I ) , AK( I ) 


GO  TO  110 

c  read  only  if  non-linear  planform  taper  and  non-linear  thickness  taper 
c  read  plies  to  be  removed  (numbered  as  entered  above,  remove  outside) 
70  DO  100  M-1,NP 
c  initializing  for  each  panel 
DO  80  J-1,N 
80  NR(J)-0.0 

c  input  from  tip  inboard 
READ  (5,*)  CS (M) , NPR 
IF  (NPR.EQ.0)  GO  TO  90 
READ  (5,*)  (NR(I),I-1,NPR) 

90  CALL  CSTRUC 

100  WRITE  (6,130)  M,EI(M),GJ(M),AK(M) 

c  increment  laminate  rotation  for  each  case 
110  D-D+DDEL 

120  FORMAT  ( 4X, 5HPANEL5X , 5HEI ( I ) , 7X, 5HGJ( I ) , 8X ,  4HK( I )/ 

112X, 8Hlb-in*  *2, 4X, 8Hlb-in**2, 8X, 1H-/) 

130  FORMAT  ( 5X, 12 , 2X, 3E12 . 5//) 

END 


Sample  10  program  for  CSTRUC 
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.-ilS: 


y, 


mmrnmm 


wmmmr 


”  -  trRy’iv".  vn 


mwnww! 


18844000. 

1468000.  .260 

910000 

32  32  10 

02  1  1  10.0 

0.07875 

0.084 

90.0 

0.0735 

0.07875 

90.0 

0.06825 

0.0735 

90.0 

0.063 

0.06825 

90.0 

0.05775 

0.063 

90.0 

0.0525 

0.05775 

90.0 

0.04725 

0.0525 

90.0 

0.042 

0.04725 

90.0 

0.03675 

0.042 

45.0 

0.0315 

0.03675 

135.0 

0.02625 

0.0315 

45.0 

0.021 

0.02625 

135.0 

0.01575 

0.021 

45.0 

0.0105 

0.01575 

135.0 

0.00525 

0.0105 

45.0 

0.0 

0.00525 

135.0 

-0.00525 

0.0 

135.0 

-0.0105 

-0.00525 

45.0 

-0.01575 

-0.0105 

135.0 

-0.021 

-0.01575 

45.0 

-0.02625 

-0.021 

135.0 

-0.0315 

-0.02625 

45.0 

-0.03675 

-0.0315 

135.0 

-0.042 

-0.03675 

45.0 

-0.04725 

-0.042 

90.0 

-0.0525 

-0.04725 

90.0 

-0.05775 

-0.0525 

90.0 

-0.063 

-0.05775 

90.0 

-0.06825 

-0.063 

90.0 

-0.0735 

-0.06825 

90.0 

-0.07875 

-0.0735 

90.0 

-0.084 

-0.07875 

90.0 

45.0  36.13 

18.4  0.2 

42.75 

38.25 

33.75 

23.25 

24.75 

20.25 

15.75 

11.25 

6.75 

2.25 

Sample  input  for  CSTRUC 
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A.Vi'»'.ili.L"t,'  /■'.  '■  ■ 


' 


v  /  v 

i  *  a  ■  a  *  • 


THE  FIRST  32  PLIES  WILL  BE  VARIED 


FIRST  VARIABLE  PLY  ORIENTATION  -  9 . OOOOOOOOOE+Ol 


PANEL 

El  ( I ) 
lb-in**2 

GJ(I) 
lb-in* *2 

K(I) 

1 

.  49355E+05 

.  16017E+05 

. 58220E+03 

2 

.70260E+05 

.  22800E+05 

. 82879E+03 

3 

.  91165E+05 

.  29584E+05 

. 10754E+04 

4 

. 11207E+06 

.  36368E+05 

.  13220E+04 

5 

.  13297E+06 

.  43152E+05 

. 15686E+04 

6 

. 15388E+06 

.  49936E+05 

. 18152E+04 

7 

.  17478E+06 

.  56720E+05 

. 20618E+04 

8 

.  19569E+06 

.  63504E+05 

. 23084E+04 

9 

. 21659E+06 

.  70288E+05 

. 25550E+04 

10 

.  23750E+06 

.  77072E+05 

, 28016E+04 

FIRST  VARIABLE  PLY  ORIENTATION  - 

1 .  OOOOOOOOOE+02 

PANEL 

EI(I) 

lb-in**2 

GJ(I) 

lb-in**2 

K  ( I ) 

1 

.  47248E+05 

.  19998E+05 

12356E+05 

2 

.  67261E+05 

.  28468E+05 

- . 17590E+05 

3 

.  87273E+05 

.  36939E+05 

22824E+05 

4 

.  10729E+06 

.  45409E+05 

28057E+05 

5 

.  12730E+06 

.  53879E+05 

- .  33291E+05 

6 


.  14731E+06  . 62350E+05  -.38525E+05 


7 


. 16732E+06  . 70820E+05  - . 4 3758E+05 


. 18733E+06  . 79290E+05  -.48992E+05 
. 20735E+06  .87761E+05  -.54226E+05 
. 22736E+06  .96231E+05  -.59459E+05 

Sample  output  for  CSTRUC 


16844000. 

1468000.  .280 

910000. 

32  32  10 

02  0  1  10.0 

0.07875 

0.084 

90.0 

0.0735 

0.07875 

90.0 

0.06825 

0.0735 

90.0 

0.063 

0.06825 

90.0 

0.05775 

0.063 

90.0 

0.0525 

0.05775 

90.0 

0.04725 

0.0525 

90.0 

0.042 

0.04725 

90.0 

0.03675 

0.042 

45.0 

0.0315 

0.03675 

135.0 

0.02625 

0.0315 

45.0 

0.021 

0.02625 

135.0 

0.01575 

0.021 

45.0 

0.0105 

0.01575 

135.0 

0.00525 

0.0105 

45.0 

0.0 

0.00525 

135.0 

-0.00525 

0.0 

135.0 

-0.0105 

-0.00525 

45.0 

-0.01575 

-0.01C5 

135.0 

-0.021 

-0.01575 

45.0 

-0.02625 

-0.021 

135.0 

-0.0315 

-0.02625 

45.0 

-0.03675 

-0.0315 

135.0 

-0.042 

-0.03675 

45.0 

-0.04725 

-0.042 

90.0 

-0.0525 

-0.04725 

90.0 

-0.05775 

-0.0525 

90.0 

-0.063 

-0.05775 

90.0 

-0.06825 

-0.063 

90.0 

-0.0735 

-0.06825 

90.0 

-0.07875 

-0.0735 

90.0 

-0.084 

-0.07875 

90.0 

7.19 

10.24 

13.28 

16.33 

19.38 

22.42 

25.47 

28.51 

31.56 

34.61 

Sample  input  for  CSTRUC 


’s&>:w>Y*j.V 


WWWW! 


YV>W.> 


w 


vv 


THE  FIRST  32  PLIES  WILL  BE  VARIED 
FIRST  VARIABLE  PLY  ORIENTATION  -  9 . OOOOOOOOOE+Ol 


PANEL 

EI(I) 

lb-in**2 

GJ(I) 

lb-in**2 

K(I) 

I 

.  49343E+05 

. 16013E+05 

. 58206E+03 

2 

. 70275E+05 

.  22805E+05 

. 82896E+03 

3 

.  91137E+05 

.  29575E+05 

. 10751E+04 

4 

. 11207E+06 

.  36368E+05 

. 13220E+04 

5 

.  13300E+06 

•43161E+05 

. 15689E+04 

6 

.  15386E+06 

. 49931E+05 

. 18150E+04 

7 

.  17479E+06 

. 56723E+05 

. 20619E+04 

8 

. 19566E+06 

. 63494E+05 

. 23080E+04 

9 

. 21659E+06 

.  70286E+05 

.  25549E+04 

10 

. 23752E+06 

.  77079E+05 

.  28018E+04 

FIRST  VARIABLE  PLY  ORIENTATION  - 

1.00000000 

PANEL 

EI(I) 

lb-in**2 

GJ(I) 
lb-in* *2 

K(I) 

1 

. 47237E+05 

. 19993E+05  - 

.  12353E+05 

2 

. 67274E+05 

.  28474E+05  - 

.  17594E+05 

3 

. 87247E+05 

. 36927E+05  - 

.  22817E+05 

4 

. 10728E+06 

. 45409E+05  - 

.  28057E+05 

5 

. 12732E+06 

. 53890E+05  - 

.  33297E+05 

6 

. 14729E+06 

. 6234  3E+05 

.  38521E+05 

v.>vy 


7 


. 16733E+06  . 70824E+05  -.43761E+05 


8  . 18730E+06  .79277E+05  -.48984E+05 

9  . 20734E+06  . 87758E+05  - . 54 224E+05 

10  . 22738E+06  .96239E+05  -.59465E+05 

Sample  output  for  CSTRUC 


910000. 


18844000.  1468000.  .280 

32  32  10  02  0  0  10.0 

0.07875  0.084  90.0 

0.0735  0.07875  90.0 

0.06825  0.0735  90.0 

0.063  0.06825  90.0 

0.05775  0.063  90.0 

0.0525  0.05775  90.0 

0.04725  0.0525  90.0 

0.042  0.04725  90.0 

0.03675  0.042  45.0 

0.0315  0.03675  135.0 

0.02625  0.0315  45.0 

0.021  0.02625  135.0 

0.01575  0.021  45.0 

0.0105  0.01575  135.0 

0.00525  0.0105  45.0 

0.0  0.00525  135.0 

-0.00525  0.0  135.0 

-0.0105  -0.00525  45.0 

-0.01575  -0.0105  135.0 

-0.021  -0.01575  45.0 

-0.02625  -0.021  135.0 

-0.0315  -0.02625  45.0 

-0.03675  -0.0315  135.0 

-0.042  -0.03675  45.0 

-0.04725  -0.042  90.0 

-0.0525  -0.04725  90.0 

-0.05775  -0.0525  90.0 

-0.063  -0.05775  90.0 

-0.06825  -0.063  90.0 

-0.0735  -0.06825  90.0 

-0.07875  -0.0735  90.0 

-0.084  -0.07875  90.0 

7.19  18 


1  2  3  4  5  6  7  8  9  24  25  26  27  28  29  30  31  32 
10.24  16 

1  2  3  4  5  6  7  8  25  26  27  28  29  30  31  32 
13.28  14 

1  2  3  4  5  6  7  26  27  28  29  30  31  32 
16.33  12 

1  2  3  4  5  6  27  28  29  30  31  32 
19.38  10 

1  2  3  4  5  28  29  30  31  32 
22.42  8 

1  2  3  4  29  30  31  32 
25.47  6 

1  2  3  30  31  32 
28.51  4 

1  2  31  32 
31.56  2 

1  32 

34.61  0 

7.19  18 

1  2  3  4  5  6  7  8  9  24  25  26  27  28  29  30  31  32 
10.24  16 

1  2  3  4  5  6  7  8  25  26  27  28  29  30  31  32 
13.28  14 

1  2  3  4  5  6  7  26  27  28  29  30  31  32 
16.33  12 


1  2  3  4  5  6  27  28  29  30  31  32 
19.38  10 

1  2  3  4  5  28  29  30  31  32 
22.42  8 

1  2  3  4  29  30  31  32 
25.47  6 

1  2  3  30  31  32 
28.51  4 

1  2  31  32 
31.56  2 

1  32 

34.61  0 


Sample  input  for  CSTRUC 
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THE  FIRST  32  PLIES  WILL  BE  VARIED 


FIRST  VARIABLE  PLY  ORIENTATION  -  9 . OOOOOOOOOE+Ol 


PANEL 

El  ( I ) 
lb-in**2 

GJ(1) 

lb-in**2 

K(I) 

1 

.  14812E+04 

.46653E+04  - 

.  44261E+03 

2 

.  31489E+04 

. 99181E+04 

.  82897E+03 

3 

. 93546E+04 

.  13874E+05 

.  10751E+04 

4 

. 19597E+05 

. 18615E+05 

.  13220E+04 

5 

.  34990E+05 

.  24344E+05 

.  1 5689E+04 

6 

.  56759E+05 

. 31288E+05 

.  18150E+04 

7 

.  86329E+05 

.  39739E+05 

.  20619E+04 

e 

. 12516E+06 

.  49959E+05 

.  23080E+04 

9 

.17497E+06 

.  62296E+05 

.  25549E+04 

10 

.  23752E+06 

. 77079E+05 

.  28018E+04 

FIRST  VARIABLE  PLY  ORIENTATION  - 

1.000000000E+02 

PANEL 

El  (I) 
lb-in**2 

GJ(  I ) 
lb-in*  *2 

K(  I ) 

1 

.  14409E+04 

. 4  2209E+04 

.  19462E+03 

2 

. 36687E+04 

.  89732E+04 

.  20769E+04 

3 

. 97522E+04 

.  13168E+05 

.  11490E+04 

4 

. 19662E+05 

.  18544E+05  - 

.  95911E+03 

5 

. 34452E+05 

.  254 16E+05  - 

.  4  5765E+04 

6 


. 55282E+05  .34133E+05  -.10065E+05 


83505E+05  .45123E+05  -.17837E+05 


12050E+06  . 58796E+05 
16791E+06  . 75667E+05 
22738E+06  . 96239E+05 


. 28324E+05 

. 4  2028E+05 

. 59465E+05 


Sample  output  for  CSTRUC 


DEFLCT 


This  subroutine  calculates  the  torsional  deflected  shape  of  a  box 
beam  wing  given  the  distributed  lift  and  the  torsion  flexibility  matrix. 
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SUBROUTINE  DEFLCT 


c  this  subroutine  calculates  the  semi-span  panels 
c  torsional  (deg)  and  bending  (in.)  deflections 
c  leading  edge  up  and  plurg  up  positive 

COMMON/DF/NP , 0, H ( 20 ) , C( 20 ) , ZAOA ( 20 ) , S ( 20 , 20 ) , SLOPE ( 20 ) , SAOA ( 20 ) 


c 

c 

c 

c 

c 


NP  -  number  of  spanwise  panels  in  semi-span 
Q  -  dynamic  pressure  (psi) 

H  -  y-axis  width  of  panel  (in.) 

C  *  x-axis  length  of  aerodynamic  chord  line  of  panel  (in.) 

ZAOA  -  incidence  from  zero-lift  line,  includes  jigged  twist  (deg) 


C  ****  MUST  SUPPLY  THE  TORSION  AND  BENDING  STIFFNESS  MATRICES  [C]  **< 
c  ****  MUST  SUPPLY  THE  FLEXIBLE  LIFT  DISTRIBUTION  PER  UNIT  SPAN  **** 


SUM-0 . 0 


DO  20  1-1 , NP 
DO  10  J-l , NP 

10  SUM-SUM+S ( I , J) * SLOPE (J }*C’H(J)*C(J )/ZAOA ( J ) 
c  torsional  deformation  in  degrees,  eqn  30  of  AFFDL-TR-79-3087 
20  SAOA(I)-SUM/(2*ACOS(-1.0) ) 

RETURN 

END 


143 


PROGRAM  DEF 


c  sample  run  for  subroutine  DEFLCT 
c  present  limit  twenty  semi-span  panels 

COMMON/DF/NP , Q, H( 20 ) , C( 20 ) , ZAOA ( 20 ) , S ( 20 , 20 ) , SLOPE( 20 ) , SAOA( 20 

READ  (5,*)  NP , Q 
DO  10  I-l , NP 

10  READ  (5,*)  ZAOA( I),H(I),C(I) 

DO  20  I-l , NP 
20  READ  (5,*)  SLOPE(I) 

READ  (5,»)  ( (S( I , J) , J-l , NP) , I-l , NP) 

CALL  DEFLCT 


WRITE  (6,*)  "PANEL  TORSIONAL  DEFLECTIONS  (deg)" 
WRITE  (6,*)  "  POSITIVE  LEADING  EDGE  UP" 

WRITE  ( 6 , * ) 

WRITE  (6,*)  "PANEL  1  IS  OUTBOARD" 

WRITE  (6,*) 


l 

•  30 


t 


I 


DO  30 
WRITE 

END 


I-l , NP 

(6,*)  I , SAOA ( I ) 


Sample  10  program  for  DEFLCT 


M  *H  U  » JUU  IBM  Ml  M*  n  W  W  WlNiWIW  M 


10 

1.0 

0.1724 

4.5 

9.0 

1.0 

4 . 5 

12.0 

1.0 

4.5 

15.0 

1.0 

4.5 

18.0 

1.0 

4.5 

21.0 

1.0 

4.5 

24.0 

1.0 

4.5 

27.0 

1.0 

4.5 

30.0 

1.0 

4.5 

33.0 

1.0 

4.5 

36.0 

1.3 20 819187 E+ 01 
1.851183891E+01 
2. 194256210E+01 
2 . 430217361E+01 
2. 5 84 784126 E+ 01 
2. 671536827 E+ 01 
2.701198578E+01 
2.685069847E+01 
2.637708092E+01 
2. 582395935E+01 

5. 4 911 3377 9E- 04 
7. 069502957 E-03 
3. 113932675E-03 
5.804807879E-03 
5. 97 300287 3 E-03 
-1.512221526 E-03 
7. 069502957 E-03 
3. 113932675 E-03 
3. 883810714 E-03 
5. 97 300287 3 E-03 
-2. 075510565 E-03 
6. 50721 1830 E-03 
3. 113932675E-03 
1. 522687031E-03 
5. 973002873 E-03 
-1. 726213144E-03 
3. 423580434 E-03 
3 . 113932675E-03 
3. 973522689 E- 04 
3.886856604E-03 
-8.622845635E-04 
1. 136222272E-03 
2. 546535106 E-03 
2. 22337 54 86 E- 05 
6. 676365156 E- 04 


4 .016366787E-03 
6.762558594E-03 
1.136320876 E-03 
6. 7797694 36E-03 
4. 742434714 E-03 
2. 181915566E-03 
6. 762558594 E-03 
1 . 136320876E-03 
6 . 220048293E-03 
4. 74 24 34714 E-03 
2. 228990197 E-04 
6. 762558594 E-03 
1.13C320876E-03 
3 . 281203797E-03 
4 . 74  24  34  7 14E-03 
-4 . 356959835E-04 
4 .702845123E-03 
1.136320876 E-03 
1 . 27 1 1146  85E-03 
4 . 175885580E-03 
-3.614670131E-04 
1 .632672967E-03 
1.136320876 E-03 
1.838408934 E-04 
8. 292436250 E-04 


5.804807879E-03 
5. 97 300287 3E- 03 
-5.951775238E-04 
7. 06 9502957 E-03 
3.113932675E-03 
5.248665810E-03 
5.973002873E-03 
-1.950709615E-03 
7. 069502957 E~ 03 
3.113932675E-03 
2. 501267474 E-03 
5. 973002873 E-03 
-1. 981792506 E~ 03 
5.041116383E-03 
3. 113932675E-03 
8.435694035E-04 
5.407503806E-03 
-1. 343934564E-03 
2. 145570237E-03 
3. 113932675E-03 
1 . 34  98403 1 3E-04 
2. 133490983E-03 
-2 . 998266136E-04 
3.455760889E-04 
9 . 895686526E-04 


6. 779769436 E-03 
4 . 742434714E-03 
3. 465 96 0734 E-03 
6 . 762558594E-03 
1. 136320876E-03 
6. 7797694 36 E-u3 
4. 7424347 14 E-03 
9. 793248028E-04 
6. 762558594 E-03 
1.136320876E-03 
4.797854926E-03 
4. 742434714 E-03 
-2. 218801528E-04 
6. 19849469 5E-03 
1. 136320876E-03 
2. 133063274E-03 
4 . 74  24  34  7 14E-03 
-4.69479244  2 E-04 
3 . 012401052E-03 
1 . 136320876E-03 
6. 354047218E-04 
2 . 633911557E-03 
-1 . 380913891E-04 
5.059011746E-04 
5 . 681604  380E-G4 


Sample  input  for  DEFLCT 
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1 

.♦ 


PANEL  TORSIONAL  DEFLECTIONS  (deg) 
POSITIVE  LEADING  EDGE  UP 

PANEL  1  IS  OUTBOARD 

1  3.20415616 

2  6.37642050 

3  9.47740364 

4  1. 245326519E+01 

5  1. 523586273E+01 

6  1. 774303426E+01 

7  1. 988074 112E-I-01 

8  2. 154567909E+01 

9  2 . 262653542E+-01 

10  2. 300656319E+01 


Sample  output  for  DEFLCT 


SUBROUT IKE  DIVERG 


c  this  subroutine  calculates  the  divergence  dynamic  pressure  (psi) 
c  and  divergence  speed  (mph)  for  a  wing 


COMMON/D/A I S <  20 ,  20 ) ,  S (  20 , 20 )  ,  QDI V,  VD I V,  RHO ,  NP 


REAL  LAMBDA (20) 


c  read  in  data  or  provide  from  another  subroutine 


KP  -  number  of  panels  in  wing  semi-span 

RHO  -  air  density  at  flight  condition  (lbf»sec**2/ft»*4) 


MUST  PROVIDE  THE  INVERTED  SYMMETRICAL  AIC  MATRIX  [AIS] 
AND  THE  WING  FLEXIBILITY  MATRIX  [S] 


DO  30  I-1,NP 
DO  20  J-1,NP 
SUM1-0 . 0 
DO  10  K-1,NP 

10  SUM-SUM+AIS(I,K)*S(K,J) 
20  COMB ( I ,  J ) “SUM 
30  CONTINUE 


c  *•*«****•  MUST  PROVIDE  SUBROUTINE  TO  PERFORM  EIGENSTRUCTURE  ****..**» 


DECOMPOSITION  OF  A  MATRIX 


c  eigenvalues  in  (LAMBDA),  use  only  real  parts  if  complex 
QDIV- LAMBDA ( 1 ) 


DO  40  I-1,NP 
FD IV- LAMBDA ( I ) 

c  divergence  dynamic  pressure  (q)  is  the  inverse  of  the  largest  eigenvalue 
40  IF  (FDIV.GE.QDIV)  QDIV-FDIV 


c  divergence  q  (psi) 
QDIV-1 . 0/QDIV 


c  divergence  speed  ( in/sec ) *  *  2 

VDIV-2 . 0*QDIV/( RHO/( 12**4) ) 


c  test  for  no  divergence  (negative  divergence  velocity) 
IF  (VDIV. LT. 0.0)  VDIV-0.0 


c  conversion  to  feet 

VDIV-SQRT( VDIV ) /12 . 0 
c  conversion  to  mph 

VDIV- ( 3 600 . 0 *VD IV/5 2 80 . 0 ) 


RETURN 


'wivXVDSW 


t* 


PROGRAM  DIV 


c  sample  run  for  subroutine  DIVERG 
c  present  limit  twenty  semi-span  panels 

COMMON/D/AIS ( 20 , 20 ) , S ( 20 , 20 ) , QDIV , VDIV, RHO, NP 

READ  (5,*)  NP , RHO 

READ  (5,*)  ((AIS(I,J),J-1,NP),I-1,NP) 

READ  (5,*)  ( (S( I , J) ,  J"1 , NP ) , I-l , NP ) 

CALL  DIVERG 

IF  ( VDIV. LE. 0.0)  WRITE  (6,*)  "THIS  WING  WILL  NOT  DIVERGE 

WRITE  (6,*)  "DIVERGENCE  DYNAMIC  PRESSURE  (PSI)  -  ",QDIV 
WRITE  (6,*) 

WRITE  (6,*)  "DIVERGENCE  SPEED  (MPH)  -  ",VDIV 
END 

Sample  10  program  for  DIVERG 


ft 
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10  0.002308 


1 . 522857380E+01  5.96310043  3.82033515  2.87379861  2.36041355 

2.05599952  1.87082624  1.76191103  1.70555520  1.68618894  5.40655422 

1 . 807481766E+01  7.97303772  5.39460516  4.19999790  3.54103684 

3.15424109  2.92951870  2.81190491  2.76885939  3.14245343  7.45420218 

1 . 979629707E+01  9.40200710  6.62955093  5.31964207  4.60114527 

4.19573450  3.98382759  3.90300393  2.18809867  4.66872692  8.94227695 

2 . 117912865E+01  1 . 065380573E+01  7.79299164  6.44328308  5.72700071 

5.35961246  5.21623898  1.68967009  3.39996672  5.92095947 

1. 02386 3792E+01  2 . 245115471E+01  1 . 188621807E+01  9.01604748  7.69819355 

7.05599117  6.80469275  1.39890170  2.70968294  4.48244715  7.10608864 

1 . 150020123E+01  2.375194168E+01  1 . 322908020E+01  1 . 043674183E+01 

9.24757767  8.79599571  1.21933305  2.30112791  3.68471789  5.58411503 

8.34255409  1 . 286012268E+01  2 . 523128319E+01  1 . 485822678E+01 

1 . 228022766E+01  1 . 140461731E+01  1.10676730  2.05220938  3.21712255 

4.74516201  6.81793594  9.76934624  1 . 450068855E+01  2. 713015938E+01 

1 . 7 1108627 3E+01  1 . 506569862E+01  1.03905964  1.90560842  2.94873929 

4.28035450  6.02116299  8.35450459  1 . 162740707E+01  1. 677473831E+01 

2.999795723E+01  2 . 095891380E+01  1.00545573  1.83426082  2.82081747 

4.06414938  5.66253471  7.75183964  1 . 055162239E+01  1. 448704529E+01 

2.069534683E+01  3 . 609405136E+01 


5.459655076E-04 
7.061231881E-03 
3 . 114864230E-03 
5.810947623E-03 
5.972181447E-03 
-1.516926568E-03 
7. 06123188 IE-03 
3. 114864230E-03 
3 . 889188170E-03 
5.972181447E-03 
-2.079066355E-03 
6.498973817E-03 
3.114864230E-03 
1.524688676E-03 
5 . 97 218144 7E-03 
-1.728197094E-03 
3.418960609E-03 
3. 114864230E-03 
3.979874309E-04 
3.885711078E-03 
-8. 6368323 54 E-04 
1.133804792E-03 
2.547440352E-03 
2.239414607E-05 
6. 674702163 E-04 


3 . 998301458E-03 
6 . 76604 63 97E-03 
1.136294100E-03 
6 . 778999232E-03 
4.739457741E-03 
2 . 166524995E-03 
6.766046397E-03 
1.136294100E-03 
6.219237577E-03 
4.739457741E-03 
2 . 12697  3122E-04 
6.766046397E-03 
1 . 136294100E-03 
3.279517172E-03 
4.739457741E-03 
-4.414077848E-04 
4.705751780E-03 
1.136294100E-03 
1.269918866E-03 
4.172910936E-03 
-3.643112723E-04 
1 . 63317751 IE-03 
1 . 136294 100E-0 3 
1.836632728E-04 
8.287391975E-04 


5. 810947623E-03 
5.972181447E-03 
-5.997680128E-04 
7 . 0612318B1E-03 
3.114864  230E-03 
5.254826043E-03 
5.972181447E-03 
-1.953933388E-03 
7 . 06123 1881E-03 
3.114864230E-03 
2.504463308E-03 
5 . 97 21 8 14 4 7 E-0 3 
-1.984966919E-03 
5.034342408E-03 
3 . 114864230E-03 
8 . 453819901E-04 
5.406722426E-03 
-1.345874392E-03 
2.141848905E-03 
3 . 114864  2 30E-03 
1 . 350609818E-04 
2.13254  964  9E-03 
-3.001438454E-04 
3.449319920E-04 
9.900082368E-04 


6 . 77899923 2E-03 
4 . 7 3 94 57 7 4 IE- 03 
3. 447986674 E- 03 
6.766046397E-03 
1.136294100E-03 
6 . 778999232E-03 
4.739457741E-03 
9 . 676 25994 2E- 04 
6. 766 04 6397 E- 03 
1.13629410OE-03 
4 . 796230234E-03 
4.739457741E-03 
-2.301395871E-04 
6.201970857E-03 
1.136294100E-03 
2.132172463E-03 
4 . 7 3 94 57 7 4 IE- 03 
-4.739435390E-04 
3.013780806E-03 
1 . 136294100E-03 
6.344335852E-04 
2. 631921787 E- 03 
-1.388749224E-04 
5.062012351E-04 
5. 681470502E-04 


Sample  input  for  DIVERG 


DIVERGENCE  DYNAMIC  PRESSURE  (PSI)  -  4 . 492255151E-01 

DIVERGENCE  SPEED  (MPH)  -  1 . 614 281006E+02 


Sample  output  for  DIVERG 


FLEXROL 


This  subroutine  calculates  the  aileron  effectiveness  or  helix 
angle,  the  location  of  the  center  of  pressure,  and  the  coefficient  of 
lift  divided  by  the  wing  incidence  for  a  rigid  wing.  The  inverted  anti¬ 
symmetric  aerodynamic  influence  coefficient  matrix  (see  AER01)  must  be 
provided.  The  flexibility  matrix  (see  CFLEX  or  MFLEX)  and  the  total 
angle  of  attack  due  to  aileron  deflection  (see  CAILRN  and  MAILRN)  must 


be  provided 


SUBROUTINE  FLEXROL 


c  this  subroutine  calculates  the  aileron  effectiveness  (helix  angle), 
c  the  location  of  the  center  of  pressure,  and  the  coefficient  of  lift 
c  divided  by  wing  incidence  (rad.)  for  a  flexible  wing 

DIMENSION  SF(  20 ) , XV( 20) , B( 20, 20 ) , BI ( 20, 20)  , FCON ( 20) , FR0LL( 20 ) 
DIMENSION  A( 20,20) 

C0MM0N/FR1/AS ( 20 , 20 ) ,  AA ( 20 , 20 ) , S ( 20 , 20 ) , DALPHA ( 20 ) , FLIFT ,  PB2V 
C0MM0N/FR2/XCP  , YCP , X( 20 ) , Y ( 20 ) , E ( 20 ) , H { 20 ) ,  SHAPE  (  20 ) ,  CM  ( 20 )  ,  FL 
C0MM0N/FR3/CMDEL  (  20 ) ,  C  (  20 ) ,  SLOP  E(20),SSPAN,AREA,Q,NP,  ZAOA  (20) 

NP  -  number  of  spanwise  panels  in  semi-span 
AREA  -  planform  area  of  wing  (sq  in.) 

SSPAN  -  semi-span  of  wing  (in.) 

ZAOA  -  panel  incidence  from  zero-lift  line,  includes  jigged  twist 
X  -  x-axis  intercept  of  panel  midchord  6  reference  axis  (in.) 

Y  -  as  in  X  but  for  y-axis 

E  -  x-axis  distance  between  panel  aerodynamic  center  and  structural 
reference  axis  (in.) 

H  -  y-axis  width  of  panel  (in.) 

C  -  x-axis  length  of  aerodynamic  chord  line  of  panel  (in.) 

Q  -  dynamic  pressure  (psi) 

CM  -  partial  derivative  of  the  section  lift  coefficient  wrt 
control  deflection  divided  by  the  partial  wrt  AOA 
CMDEL  -  partial  derivative  of  the  section  pitching  moment 
wrt  control  deflection 

SHAPE  -  aileron  segment  deflection  normalized  to  largest  value 
and  negative,  example: 

-1.0  if  segments  deflects  same  amount 
-0.5  if  deflects  half  as  much 

DO  10  I-1,NP 

c  XV  is  x-axis  distance  to  the  quarter-chord  of  panel 
10  xv ( I ) -X (I)-E(I) 

NCT-0 

c  •  ***  must  PROVIDE  THE  ANT  I -SYMMETRIC  AIC  MATRIX  [AA]  **** 
c  first  time  through 

C  ****  MUST  PROVIDE  THE  SYMMETRIC  AIC  MATRIX  [AS]  »*** 
c  second  time  through 

1000  DO  30  1-1 , NP 
DO  20  J-l , NP 

IF  (NCT.LE.0)  A(I,J)-AA(I,J) 

20  IF  (NCT.GT.0)  A( I , J)-AS ( I , J ) 

30  CONTINUE 

c  eqn  32  of  AFFDL-TR-79-3087 
DO  50  1-1 ,  NP 
DO  40  J-l , NP 

C  MUST  PROVIDE  THE  FLEXIBILITY  MATRIX  [S]  *»** 

40  B{ I , J)-A( I , J)/Q-S( I , J) 

50  CONTINUE 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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C  **«*  MUST  NOW  PROVIDE  MEANS  TO  INVERT  [B]  for  [ BI ) 


*  *  *  * 


c 

c 


DO  70  I-1,NP 
SUM-0 . 0 

following  equations  for  left  wing  only 
DO  60  K-l , NP 

eqn  34  of  AFFDL-TR-79-3087 
60  SUM-SUM+BI ( I ,  K) 

SF  is  the  lift  per  unit  span  per  rad.  of  wing  incidence 
70  SF( I) -SUM 

SUM1-0.0 
SUM2-0 . 0 
SUM3-0.0 

following  for  eqn  38  of  AFFDL-TR-79-3087  for  wing 
DO  80  I-l , NP 

SUM1-SUM1+SF { I ) * XV ( I ) * H ( I ) 

SUM2-SUM2+SF { I ) »Y( I ) *H( I ) 

80  SUM3-SUM3+SF( I ) *H(  I ) 

FLIFT  is  the  coefficient  of  lift  divided  by  q*AREA*A0A 
CL  alpha,  eqn  38  of  AFFDL-TR-79-3087 
FLIFT  -  SUM3/(Q*AREA) 

cartesian  coordinates  of  center  of  pressure,  non-rotated  axis 
XCP-SUM1/SUM3 
YCP-SUM2/SUM3 

DO  100  I-l , NP 

SUM1-0.0 

SUM2-0.0 

DO  90  K-1,NP 

equation  44  from  AFFDL-TR-79-3087 
denominator 

SUM1-SUM1+BI ( I , K ) * Y ( K ) /SSPAN 

* '  *  MUST  PROVIDE  TOTAL  AOA  DUE  TO  AILERON  DEFLECTION  [DALPHA]  **  * 
numerator 

90  SUM2-SUM2+BI ( I , K ) *DALPHA( K ) 

contribution  from  roll  itself 
FR0LL(  I  )-SUMl 

contribution  from  control  deflection 
100  FCON ( I ) -SUM2 

SUM1-0 . 0 
SUM2-0 . 0 

DO  110  I-l , NP 

roll-in-damping,  apparent  AOA  change  due  to  the  rolling  moment 
eqn  41  of  AFFDL-TR-79-3087 

SUM1-SUM1+FR0LL( I) *Y( I) *H(  I) 
effect  of  apparent  AOA  change  due  to  the  roll 
eqn  44  of  AFFDL-TR-79-3087 
110  SUM2-SUM2+FCON ( I ) *Y( I ) *H(  I ) 


DO  120  I-1,NP 

c  panel  lift  per  unit  span  divided  by  C*Q*AOA,  CL  alpha 
SLOPE ( I )”SF( I)/(Q*H(I)*C(I)) 
c  total  flexible  wing  lift  on  semi-span  (lbf) 

120  FL-FL+SLOPE(I)*Q*H(I)*C(I)/ZAOA(I) 

c  PB/2V  is  the  wing  aileron  effectiveness  (helix  angle) 
c  no  good  first  time  through,  must  use  anti- symmetric  [AIC] 
IF  (NCT.LE.O)  PB2V— SUM2/SUM1 

IF  (NCT.GT.O)  GO  TO  130 
NCT-1 

GO  TO  1000 

130  RETURN 
END 


PROGRAM  FLEX 


c  sample  run  for  subroutine  FLEXROL 
c  present  limit  twenty  semi-span  panels 

C0MM0N/FR1/AS ( 20 , 20 ) , AA ( 20 , 20 > , S ( 20 , 20 ) , DALPHA ( 20 ) , FLI FT ,  PB2V 
C0MM0N/FR2/XCP , YCP , X ( 20 ) , Y ( 20 ) , E ( 20 ) , H ( 20), SHAPE! 20 ) , CM( 20 ) , FL 
C0MM0N/FR3/CMDEL ( 20 ) ,  C (  20 ) ,  SLOPE (  20 ) ,  SS PAN ,  AREA ,  Q ,  NP ,  ZAOA (  20 ) 

READ  (5,*)  NP , SSPAN , AREA , 0 
DO  10  I-1,NP 

READ  (5,*)  X(I),Y(I),H(I),E(I),C(I) 

READ  (5,*)  ZAOA( I ) , SHAPE! I ) , CM( I ) , CMDEL( I ) 

10  READ  (5,*)  DALPHA( I) 

READ  ( 5 ,  *  )  ((S(I,J),J-1,NP),I-1,NP) 

READ  (5,*)  ( (AS(I,J) ,J-1,NP) ,1-1, NP) 

READ  (5,*)  ((AA(I,J),J-1,NP),I-1,NP) 

CALL  FLEXROL 


WRITE  (6,*)  "FLEXIBLE  WING  RESULTS" 

WRITE  (6,*) 

WRITE  (6,*)  " Pb/2V  -  " , PB2V 
WRITE  (6,*) 

WRITE  (6,*)  "CENTER  OF  PRESSURE  LOCATION  (inches)  X  -  " ,  XCP 
WRITE  (6,*)  "  Y  -  " , YCP 

WRITE  (6,*) 

WRITE  (6,*)  "CL  alpha  -  " ,FLIFT 
WRITE  (6,*) 

WRITE  (6,*)  "TOTAL  LIFT  ON  SEMI-SPAN  (lbf)  -  " , FL 
WRITE  (6,20) 


DO  30  I-1,NP 

30  WRITE  ( 6 , *  )  I , SLOPE ( I ) 


20  FORMAT  (/33HPANEL  LIFT  PER  UNIT  SPAN  (LBF/IN) 
1/19HPANEL  1  IS  OUTBOARD/) 

END 


Sample  10  program  for  FLEXROL 
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10  45.0  1012.5  0.1724 


14.22  42.75 

4.5  1.866  9.0 

1.0  -1.0 
-.1540 

0.5854  -0.64 

12.72  38.25 

4.5  2.657  12.0 

1.0  -1.0 
-.1641 

0.5854  -0.64 

11.23  33.75 

4.5  3.447  15.0 

1.0  -1.0 
-.1838 

0.5854  -0.64 

9.73  29.25 

4.5  4.237  18.0 

1.0  -1.0 
-.2146 

0.5854  -0.64 

8.23  24.75 

4.5  5.028  21.0 

1.0  -1.0 
-.2581 

0.5854  -0.64 

6.74  20.25 

4.5  5.818  24.0 

1.0  -1.0 
-.3160 

0.5854  -0.64 

5.24  15.75 

4.5  6.609  27.0 

1.0  0.0 

0.0  0.0 

.2022 

3.74  11.25 

4.5  7.399  30.0 

1.0  0.0 

0.0  0.0 

.1370 

2.25  6.75 

4.5  8.189  33.0 

1.0  0.0 

0.0  0.0 

.0785 

0.75  2.25 

4.5  8.980  36.0 

1.0  0.0 

0.0  0.0 

.0253 

5.459655076E-04 
7 . 061231861E-03 
3.114864230E-03 
5.810947623E-03 
5. 972181447E-03 
-1.516926568E-03 
7.061231881E-03 
3.114864230E-03 
3.889188170E-03 
5.972181447E-03 
-2.079066355E-03 
6.498973817E-03 
3.114864230E-03 
1.524688676E-03 
5.972181447E-03 
-1.728197094E-03 
3.418960609E-03 
3.114864230E-03 
3 . 979874309E-04 
3.885711078E-03 
-8.636832354E-04 
1 . 133804792E-03 
2.547440352E-03 
2 . 239414607E-05 
6.674702163E-04 

7.488431782E-02 


3. 9983014 58E-03 
6.766046397E-03 
1.136294100E-03 
6.778999232E-03 
4.739457741E-03 
2.166524995E-03 
6.766046397E-03 
1.136294100E-03 
6.219237577E-03 
4.739457741E-03 
2.126973122E-04 
6 . 766046397E-03 
1.1362941 00E- 03 
3.279517172E-03 
4.739457741E-03 

-4.414077848E-04 

4.705751780E-03 

1.136294100E-03 

1.269918866E-03 

4.172910936E-03 

-3.643112723E-04 
1.633177511E-03 
1.136294100E-03 
1 . 836632728E-04 
8 . 287391975E-04 

-2 . 213571034E-02 


5 . 81094 7623E-03 
5.972181447E-03 
-5.997680128E-04 
7.061231881E-03 
3 . 114864  23 0E-03 
5.254826043E-03 
5. 972181447 E-03 
-1.953933388E-03 
7.061231881E-03 
3.114864230E-03 
2.504463308E-03 
5.972181447E-03 
-1.984966919E-03 
5 . 03434  24 08E-03 
3. 114864230E-03 
8. 453819901 E-04 
5. 406722426 E-03 
-1 . 34  5874  392E-03 
2. 141848905E-03 
3.114864230E-03 
1 . 3 5060981 8E-04 
2.132549649E-03 
-3.001438454E-04 
3 . 44  9319920E-04 
9.900082368E-04 

-4.105357453E-03 


6.778999232E-03 
4 . 7 3 94 57 74 IE- 03 
3. 4479 86674 E-03 
6.766046397E-03 
1 . 136294100E-03 
6.778999232E-03 
4.739457741E-03 
9 . 676 25994 2E-04 
6.766046397E-03 
1.136294 100E-03 
4.796230234E-03 
4. 739457741 E-03 

-2.301395871E-04 
6.201970657E-03 
1 . 136294100E-03 
2.132172463E-03 
4.739457741E-03 

-4.739435390E-04 
3.013780806E-03 
1.136294100E-03 
6.344335852E-04 
2. 6319217 87E- 03 

-1.388749224E-04 
5.062012351E-04 
5 . 681470502E-04 

-1.709607313E-03 
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9.505109047E-04 
3. 169882402 E-04 
2. 254936099E-02 
6.576376036E-04 
3.159705782E-03 
4.340040497E-03 
5.611407105E-04 
2.213056944E-02 
1.904600882E-03 
■6. 441903533 E-04 
7.144998759E-02 
1.255175099E-03 
1.445620786E-03 
2.336172760E-02 
2.974603558E-04 
4.190979991E-03 
5.066295154E-03 
5.093278596E-04 
2.34271B095E-02 
•2.023099660E-04 
9.990828112E-04 
6 . 9264 12880E-02 
3.392344515E-04 
■2.521812217E-03 

7.493592799E-02 
■8 . 56 2 1804 4 6 E-04 
-1.091756567E-04 
2.247230336E-02 
-4.967618152E-04 
-3.096119268E-03 
■4.214034881E-03 
-2.402731334E-04 
-2.203C54412E-02 
1.668259036E-03 
-5.639339215E-04 
7 . 162687927E-02 
-6.998337340E-04 
-1.310929772E-03 
-2 . 298 16 86 5 2E- 02 
-1. 930344588E-04 
-3.924718592E-03 
-3. 9021312 26E-03 
-3. 180191270E-04 
-2.272072062E-02 
-6.119107275E-05 
-5.535153905E-04 
7.286155969E-02 
-4.648292452E-05 
-8 . 0244 10 9 27 E-04 


-6.211501313E-04 
-2 . 991427900E-04 
-4.232498351E-03 
-4. 9414404 20E-04 
-2 . 144304849E-02 
-1 . 831214526E-03 
-5 . 0486944  3 8E- 04 
7 . 176364958E-02 
-1.116692321E-03 
-1.327946549E-03 
-2 . 319225296E-02 
rl. 011421205E-03 
-3.987679724E-03 
-4 . 714160692E-03 
-4 . 540551163E-04 
-2 . 31254 13 81E-02 
-2.841468900E-03 
-8 . 6249114 2 5E-04 
7 . 057461888E-02 
-2.737941395E-04 
-1.937676920E-03 
-2.783496864E-02 
-4 . 9216364 28E-04 
-6. 07 1793847 E-03 

-2 . 2076524  7 9E-0 2 
-5 . 08630124 4E-04 
-3 . 539262252E-05 
-4.141625483E-03 
-2.933932119E-04 
-2.136890590E-02 
-1.676527201E-03 
-7 . 543923857E-05 
7 . 188440114E-02 
-8.079282125E-04 
-1 . 23239506 5E-03 
-2.296640165E-02 
-2 . 038015082E-04 
-3.819461213E-03 
-4.181896336E-03 
-3. 263350227E-04 
-2 . 276524901E-02 
-8 . 7 3 30804 6 7E~ 04 
-6.120912149E-04 
7.168778777E-02 
-9 . 458554268E-05 
-1.275758259E-03 
-1. 883696206 E- 02 
-8.038311353E-05 
-2. 610660391 E-03 


-4.542543320E-04 
-2.026449889E-02 
-1.769537688E-03 
-4.132204922E-04 
7.224911451E-02 
-1.041683601E-03 
-1.208507689E-03 
-2. 302692458E-02 
-8.058168460E-04 
-3.761260305E-03 
-4.551127553E-03 
-4.118355573E-04 
-2.287047543E-02 
-2.226935467E-03 
-7.748492062E-04 
7 . 097027451E-02 
-2.358799975E-04 
-1.710914192E-03 
-2.424692363E-02 
-3. 898006398E-04 
-4.794762004E-03 
-1.860412158E-04 
-7 . 643046556E-04 
-2.766152285E-02 

-4. 036894534 E~03 
-3.182522196E-04 
-2.020737715E-02 
-1 . 66 110671 IE-03 
-1 . 57899514  3E-04 
7.233648747E-02 
-8 . 48462 223 IE-04 
-1.137308544E-03 
-2. 287869528E-02 
-3.911212552E-04 
-3.645892255E-03 
-4 . 255543929E-03 
-3.206946130E-04 
-2.265570126E-02 
-1 . 447890070E-03 
-6.15553  2319E-04 
7 . 14764  8931E-02 
-1.151710312E-04 
-1.372133847E-03 
-2.234158292E-02 
-1 . 557856158E-04 
-3.743321169E-03 
-1. 895726200E-05 
-1.520627993E-04 
-1.881445944E-02 


-3.640271316E-04 
7. 310753316 E- 02 
-9.910688968E-04 
-3.824108280E-04 
-2 . 28 2 5 96 9 3 8E- 02 
-7 . 114  530308E-04 
-3.489161376E-03 
-4 .440150689E-03 
-6 . 94883114 2E-04 
-2 . 2 56 54 3 56 2E- 02 
-2.013115445E-03 
-7 . 054977468E-04 
7 . 121116668E-02 
-1.593833440E-03 
-1.567144762E-03 
-2.361375093E-02 
-3.341944830E-04 
-4.4154 10105E-03 
-6.361118052E-03 
-5.945017911E-04 
-2. 4 07 97 251 5E- 02 
-2.462229168E-04 
-1 . 301029930E-03 
4.769547656E-02 

-1.629674225E-03 
-1.972638274 E-04 
7. 317356765E-02 
-8.599693538E-04 
-5.052468987E-05 
-2.272174507E-02 
-4 . 6527 2576 5E- 04 
-3 . 4053244 16E-03 
-4.254896659E-03 
-1.193196222E-04 
-2.242389135E-02 
-1.614875277E-03 
-5. 95593 94 14 E-04 
7.149253786E-02 
-3.879787691E-04 
-1 . 363928546E-03 
-2.286828309E-02 
-1.839625475E-04 
-3.938189708E-03 
-2.666530665E-03 
-2.783295058E-04 
-2.225571312E-02 
-2.885164577E-05 
-3 . 228 54 932 2E~ 04 
9. 4 326056 54 E- 02 


Sample  input  for  FLEXROL 


FLEXIBLE  WING  RESULTS 


Pb/2V  -  1.407640129E-01 

CENTER  OF  PRESSURE  LOCATION  (inches)  X  -  -3.70381021 

Y  -  1.116182232E+01 

CL  alpha  -  -1. 870626068 E+ 02 

TOTAL  LIFT  ON  SEMI-SPAN  (lbf)  -  2 . 975453906E+04 

PANEL  LIFT  PER  UNIT  SPAN  (LBF/IN) 

PANEL  1  IS  OUTBOARD 

1  1.143178567E-01 

2  4.805943668E-01 

3  4.774543643E-01 

4  3.827359378E-01 

5  2. 355925441 E-01 

6  5.075030029E-02 

7  4. 451088607 E-02 

8  -3 . 115916138E+02 

9  -2. 292837352E-01 

10  -7.230437398E-01 


Sample  output  for  FLEXROL 


4*  g  V4 


*-* t.y^i  1-ij‘i  tuiia|V»VtLjL  t 


FLUTR 

This  program  performs  simple  flutter  computations  using  the  dynamic 
subroutines  presented  in  this  Appendix.  No  example  is  output  is 
provided  for  this  program. 


159 


v.v.v 


PROGRAM  FLUTR 


I 


c  sample  run  for  program  FLUTR 
c  present  limit  40  DOF/panels  combinations 

COMMON/'FLl/N ,  VI ,  VE, RHO, OHMT , RNF( 40 ) , EVECTf  40,40) ,MOD( 20,20) 
COMMON/FL2/RM( 20 , 20 ) ,  RK  (  20 , 20 ) ,  A(  20 , 20 ) , OHM( 20 ) , V, XA( 20 ) , SC (  20 ) 
COMMON/FL3 /RMS ( 20) , OHMH (20) ,OHMA(20) ,RA(20) , AH( 20) ,OOHM 

COMPLEX  A 

c  N  -  number. of  DOFs  multiplied  by  number  of  nodes, 

dimension  of  square  operator  matrices 
c  VE  -  final  velocity  for  analysis  (mph) 

c  VI  -  velocity  increment  (mph) 

c  RHO  -  air  density  (lbf  sec**2/ft**4 ) 

c  OHMT  -  tolerance  on  frequency  match 

c  SC  -  section  semi-chord  (in.) 

c  AH  -  a  sub  h,  distance  of  elastic  axis  from  section  mid-chords 

c  RMS  -  section  mass  per  unit  length 

c  OHMH  -  omega  h,  uncoupled  natural  frequency  of  bending 

c  ( rad/sec ) 

c  OHMA  -  as  above  but  for  torsion 

READ  (5,*)  N,NM 

READ  (S,«)  VE,VI( RHO, OHMT 

DO  10  I-1,N 

READ  (5,*)  SC ( I ) , AH (I),XA(I),RA(I) 

10  READ  (5,*)  RMS  ( I ) ,  OHMH  ( I ) ,  OHMA  ( I ) 


c  write  header 

IF  (NM.EQ.l)  WRITE  (6,*) 
IF  (NM.EQ.2)  WRITE  (6,«) 
IF  (NM.EQ.3)  WRITE  (6,«) 
WRITE  (6,*) 


VG-METHOD  RESULTS" 
K-METHOD  RESULTS” 
PK-METHOD  RESULTS” 


IF  (NM.EQ.l)  CALL  VG FLUTR 
IF  (NM.EQ.2)  CALL  K FLUTR 
IF  (NM.EQ.3)  CALL  PKFLUTR 


DO  20  I-1,N 


c  conversion  to  Hertz 

RNF( J)-RNF(J)/( 2*ACOS(-l . 0) ) 

WRITE  (6,*)  ”  NATURAL  FREQUENCY  (Hz)  ",J,”  -  "  ,  RNT ( J ) 

WRITE  (6,*) 


WRITE  ( 6 , * ) 
DO  30  J-1,N 
30  WRITE  (6, *) 
20  WRITE  (6,*) 


MODE  ",J, 


,EVECT( I,J) 


END 
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FUNG 


This  subroutine  calculates  tri-diagonal  inertia,  stiffness  and 


unsteady  awrodynamic  operators  using  simple  two-dimensional  theory. 


- 


SUBROUTINE  FUNG 


c  this  subroutine  creates  tri-diagonal  operator  matrices 
c  by  equations  from  FUNG  p.  217,  2-dimensional,  incompressible 

DIMENSION  RMU{ 20 ) 

C0MM0N/01/RM(  20 , 20) ,  RK(  20 , 20) ,  A(  20 , 20 ) ,  N,  RHO,  OOHM,  V,  XA(  20 ) ,  SC(  20 ) 
C0MM0N/02/RMS ( 20 ) , OHMH ( 20 ) , OHMA ( 20 ) , RA ( 20 ) , AH ( 20 ) 

COMPLEX  A,C ,CF1 ,CF2 

c  N  -  number  of  nodes  in  semi-span 

c  RHO  -  air  density  (lbf  sec**2/ft**4) 

c  XA  -  x  alpha,  (S/mb),  distance  of  section  center  of  mass  from 

c  elastic  axis  in  percent  semi-chord,  positive  aft 

c  RA  -  r  alpha,  (sqrt(I  alpha/mb* *2] ),  radius  of  gyration  of 

c  section  about  elastic  axis  in  percent  semi-chords 

c  SC  -  section  semi -chord  (in.) 

c  AH  -  a  sub  h,  distance  of  elastic  axis  from  section  mid-chord 

c  in  percent  semi-chord,  positive  aft 

c  RMS  -  section  mass  per  unit  length 

c  OHMH  -  omega  h,  uncoupled  natural  frequency  of  bending  (rad/sec) 

c  OHMA  -  as  above  but  for  torsion  (rad/sec) 

c  OOHM  -  frequency  of  case  being  investigated  (rad.) 

c  V  -  velocity  of  case  being  investigated  (mph) 

c  NOTE:  enter  node  data  from  tip  inboard 

c  defining  pi 

PI-ACOS(-l.O) 

c  conversion  to  inches 
V-V* 12* 5280/360 
RHO-RHO/( 12**4 ) 

c  *  *  *  *  MASS  *  *  *  * 

NN-i.O 

DO  20  I-1,N 

c  for  tri-diagonalization 
IF(I.EQ.l)  GO  TO  10 
NN-NN+2 

c  mass  ratio 

10  RMU( I )”RMS( I )/( PI *RK0*SC ( I ) ** 2 ) 

RM(NN,NN)— RMU(I) 

RM(NN,  NN+1 )— RMU(  I )  *XA(  I ) 

RM(NN+1,NN)-RM(NN,NN+1) 

20  RM( NN+1, NN+1)  —  RMU( I ) *RA( I ) *  *  2 

c  ****  STIFFNESS  **** 

VN-1.0 


c 


c 


c 


c 


wmmvmmmrmiwm!WViMrw!wm*x'V'ivi’UF*!v**v:K**twr.vm 


for  tri-diagonalization 
IF(I.EQ.l)  GO  TO  30 
NN-NN+2 

30  RK ( NN , NN ) -RMU ( I ) * ( OHMH ( I ) *  *  2 ) 

40  RK( NN+1 , NN+1 ) -RA( I ) *RMU( I ) * ( 0HMA( I ) *  *  2 ) 

****  AERODYNAMICS  **** 

IF  (V.EQ.0.0)  GO  TO  70 

NN-1.0 

DO  60  I-1,N 

for  tri-diagonalizatlon 
IF(I.EQ.l)  GO  TO  50 
NN-NN+2 

reduced  frequency 
50  RKK-OOHM*SC( I )/V 

C  is  Theodorsen  function  (k  less  than  0.5) 

CF1-CMPLX  ( 1 , -0 . 04  5  5/RKX ) 

CF2-CMPLX (1,-0. 3/RKK ) 

C-l- ( 0 . 165/CF1 ) - ( 0 . 335/CF2 ) 

A ( NN , NN ) - CMPLX  ( - 1 . 0 , 2 * C /RKK ) 

A(NN,  NN+1 )-CMPLX( AH( I )  +  2*C/(RKK*  *2) , 1/RKK+2*C* ( 0 . 5-AH( I ) )/RKK) 
A  (NN+1 ,  NN ) -CMPLX  ( AH  ( I ) ,  -  2*C*  ( 0 . 5+AH(  I )  )/RKK) 

A (NN+1 , NN+1 )  —  ( AH( I )  **2 )~l/8+2*C* (0. 5+AH( I ) ) * ( 0 . 5-AH( I ) )/RKK 
A  (NN+1 ,  NN+1  )-A(  NN+1,  NN+1  )+CMPLX(  0,  ~2*C*  ( 0 . 5+AH{  I )  )/(RXK*  *2  )  ) 

60  A  (NN+1 ,  NN+1  )-A(  NN+1,  NN+1  J+CMPLXfO,  ( 0 . 5~AH(  I )  )/RKK) 

70  RETURN 
END 


PROGRAM  FG 

c  sample  run  for  subroutine  FUNG 
c  present  limit  ten  semi -span  nodes 

C0MM0N/01/RM ( 20 , 20 ) , RK ( 20 , 20 ) ,  A<  20 , 20 ) , N , RHO , OOHM , V , XA ( 2 0 ) , SC ( 2 0 ) 
C0MM0N/02/RMS < 20 ) ( OHMH ( 20 ) , OHMA ( 20 ) , RA ( 20 ) ,  AH ( 20 ) 

COMPLEX  A 

READ  (5,*)  N, RHO, OOHM, V 
DO  10  I“1 , N 

READ  (5,*)  SC ( I ) , AH ( I ) , XA ( I ) ,  RA  { I ) 

10  READ  (5,*)  RMS ( I ) , OHMH ( I ) , OHMA ( I ) 

CALL  FUNG 

NN~2*N 

WRITE  (6,*)  ( (RM( I ,  J) / Jml,NN) , I-1,NN) 

WRITE  (6,*) 

WRITE  (6,*)  ((RK(I,J),J-1,NN),I-1,NN) 

WRITE  (6,*) 

WRITE  (6,*)  ( ( A( I , J) , J_l, NN) , I-l , NN) 

END 


Sample  10  Program  for  FUNG 


mmmmm 


m 


m 


GEOM 

This  subroutine  calculates  a  number  of  planform  parameters  often 
required  in  the  other  subroutines  herein  provided. 
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SUBROUTINE  GEOM 

c  this  subroutine  determines  general  parameters  for  a 
c  linearly  tapered  plan form 

COMMON/G 1/CR , ER , SSPAN , TAPER , AREA , SWEEPR , CSR , NP 
COMMON/G2/H ( 20 ) ,X( 20 ) , Y( 20 ) ,C( 20) ,CS( 20 ) , E( 20) , SWEEP( 20 ) 

c  NP  -  number  of  panels  In  semi-span 

c  CR  -  wing  root  aerodynamic  chord  (in.) 

c  CSR  -  approximate  structural  chord  at  panel  center  (in.) 

c  ER  -  distance  between  reference  axis  and  aerodynamic 

c  center  at  wing  root,  measured  streamwise  (in.) 

c  SSPAN  -  semi-span  measured  perpendicular  to  centerline  (in.) 

c  SWEEPR  -  sweep  of  reference  axis  from  Y-axis,  positive  aft  (deg) 

c  at  root 

c  TAPER  -  taper  ratio 

c  dividing  wing  into  equal  width  panels 
AH-SSPAN/NP 

DO  10  I-1,NP 

c  sweep  of  reference  axis  for  panel 
SWEEP ( I ) -SWEEPR 
c  panel  widths 
H(I)-AH 

c  change  to  radians 

SD-SWEEPR*ACOS( -1 . 0 )/180 . 0 

c  intercept  of  panel  midchord  and  reference  axis 
c  linear  taper  planform 

Y ( I ) - ( NP- I ) « AH+ AH/2 . 0 
X(I)-Y(I)*TAN(SD) 

c  eqn  B-58  of  AFFDL-TR-78-116 
c  linear  taper  planform 

F-l . 0- ( Y( I ) /SSPAN ) * ( 1 . 0-TAPER ) 
c  aerodynamic  chord  at  center  of  panel  (linear  taper) 

C(I)-CR*F 

F- 1 . 0- ( Y ( I ) /SSPAN )*( 1 . 0 -TAPER ) /COS ( SD ) 
c  structural  chord  at  panel  center  (linear  planform  taper) 

CS(I)-CSR*F 

c  distance  from  reference  axis  to  a.c.  (same  ratio  as  root) 

E(I)-ER*F 

10  SUM-SUM+H ( I ) *C ( I ) 

c  planform  area  as  determined  from  sum  of  rectangular  panels 
AREA-SUM 

RETURN 


E 


PROGRAM  GM 


c  sample  run  for  subroutine  GEOM 
c  present  limit  twenty  semi-span  panels 

COMMON /G 1 /CR , ER , SSPAN , TAPER , AREA , SWEEPR , CSR , NP 
COMMON/G2/H( 20 ) , X( 20 ) , Y ( 20 ) ,C(20) ,CS(20) , E( 20 ) , SWEEP ( 20 ) 

READ  (5,*)  NP;CR,CSR,ER 
READ  (5,*)  SSPAN, SWEEPR, TAPER 

WRITE  (6,20) 

CALL  GEOM 

DO  10  I-1,NP 

10  WRITE  (6,30)  I,X(I),Y(I),C(I),CS(I),H(I),E(I), SWEEP ( I ) 

WRITE  (6,*)  "SEMI-SPAN  PLANFORM  AREA  (SQ.  INCHES)  -  " , AREA 

20  FORMAT  (31X,16HALL  UNITS  INCHES,//, 5HPANEL, 4X, 4HX( I ) , 6X , 4HY< I ) 
1, 6X, 4HC( I ) , 6X, 5HCS( I),6X,4HH(I),6X,4HE(I),4X, 6HSWP ( I ) , //) 

30  FORMAT  ( 2X, 12 , 7 ( IX, F9 . 2 ) , /) 

END 


Sample  10  program  for  GEOM 
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10  37.5  36.13  9.375 

45.0  18.4  0.2 


Sample  input  for  GEOM 


ALL  UNITS  INCHES 


PANEL 

X(I) 

Y(I) 

C(I) 

CS(I) 

H(I) 

E(I) 

SWP(I) 

1 

14.22 

42.75 

9.00 

7.19 

4.50 

1.87 

18.40 

2 

12.72 

38.25 

12.00 

10.24 

4.50 

2.66 

18.40 

3 

11.23 

33.75 

15.00 

13.28 

4.50 

3.45 

18.40 

4 

9.73 

29.25 

18.00 

16.33 

4.50 

4.24 

18.40 

5 

8.23 

24.75 

21.00 

19.38 

4.50 

5.03 

18.40 

6 

6.74 

20.25 

24.00 

22.42 

4.50 

5.82 

18.40 

7 

5.24 

15.75 

27.00 

25.47 

4.50 

6.61 

18.40 

8 

3.74 

11.25 

30.00 

28.51 

4.50 

7.40 

18.40 

9 

2.25 

6.75 

33.00 

31.56 

4.50 

8.19 

18.40 

10 

.75 

2.25 

36.00 

34.61 

4.50 

8.98 

18.40 

HALF- 

•SPAN  AREA  - 

1012.5000 

SEMI- 

-SPAN  - 

45.0000 

Sample  output  for  GEOM 


KFLUTR 


$ 

This  subroutine  performs  iterative  flutter  computations  given  the 
aeroelastic  operators  using  the  k-method.  No  10  program  or  sample  is 
appropriate  for  this  subroutine. 


SUBROUTINE  KFLUTR 


c  this  program  performs  simple  flutter  computations  by  the  K-method 
c  assumes  no  free -body  modes  in  operators 

DIMENSION  RM(40,40) ,RK( 40,40 ),A( 40,40 ) ,RKI( 40,40 ) ,0HM( 40) 

COMMON/FL2/N,RC,VS,VI,VE,OHMT,RNF(40)  ,EVECT(40,40) 

COMPLEX  A,RMAT(40,40) , RLAMBDA(40) 

c  N  -  number  of  DOFs  multiplied  by  number  of  nodes, 

c  dimension  of  square  operator  matrices 

c  RC  -  root  aerodynamic  chord  (in.) 

c  VS  -  starting  velocity  (mph),  greater  than  zero 

c  VE  -  final  velocity  for  analysis  (mph) 

c  VI  -  velocity  increment  (mph) 

c  OHMT  -  tolerance  on  frequency  for  match 

C  ***  PROVIDE  DATA  AND  SUBROUTINES  TO  CALCULATE  OPERATORS  *** 

C  INERTIA  [RM]  ,  STRUCTURE  [RK] ,  AND  AERODYNAMIC  [A] 

CALL  STRUC 
CALL  MASS 

C  ***  PROVIDE  MEANS  FOR  INVERTING  [RK]  FOR  [RKI]  *** 

CALL  NFREQ 

c  ♦**  PRODUCES  ARRAY  OF  NATURAL  FREQUENCIES  [RNF)  *** 
c  AND  MATRIX  OF  NATURAL  MODES  IN  DESCENING  ORDER  [EVECT] 

c  top  of  velocity  loop 
DO  90  I-VS,VE,VI 

c  velocity 
V-I 

c  top  of  mode  loop 
DO  80  J-1,N 

MODE-J 

c  using  natural  frequency  as  initial  guess 
IF  (V.EQ.VS)  OHM(MODE) -RNF (MODE) 

c  top  of  frequency  loop,  10000  iterations  permitted 
DO  60  KK-1, 10000 

c  reduced  frequency,  k 

RKK-RC *0HM ( MODE ) / ( 2 * V ) 

c  [A]  expecting  k  as  principal  variable 
CALL  AERO 

c  replace  operators  with  modal  form 
CALL  MODAL 

DO  20  L-1,N 
DO  10  K-1,N 

10  RMAT(L,X)-(1/0HM(M0DE) ) *A(L,K)-RM(L,K) 
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20  CONTINUE 

c  premultiply  by  inverse  of  [RK] 

DO  50  L-1,N 
DO  40  K-1,N 
SUM-0 . 0 
DO  30  M-l / N 

30  SUM-SUM+RKI (L,M) *RMAT(M, K) 

40  RMAT(L,K)“SUM 
50  CONTINUE 

***  PROVIDE  MEANS  FOR  PERFORMING  AN  EIGENVALUE  DECOMPOSITION  *** 
ON  COMPLEX  MATRIX  [RMAT] 

c  (RLAMBDA)  is  array  of  eigenvalues  in  descending  order 
c  each  has  form  (l/ohm**2  +  i  g/ohm**2) 

0HML-SQRT( 1/REAL( RLAMBDA (MODE ) ) ) 

DI F-ABS ( OHML-OHM ( MODE ) ) 

c  check  for  suitable  match  of  frequency 
IF  (DIF.LE.OHMT)  GO  TO  70 

60  OHM ( MODE )-OHML 

WRITE  (6,*)  "(NO  CONVERGENCE  FOR  MODE  ”,M0DE,"  )" 

GO  TO  80 

c  solving  for  structural  damping 

70  G-AIMAG( RLAMBDA (MODE)) /REAL (RLAMBDA (MODE) ) 

WRITE  (6,*)  "Mode  ",3,"  Vel.  (MPH)  -  ",V,"  g  -  ",G, 

1"  freq.  -  " /OHM(MODE) 

80  CONTINUE 

90  CONTINUE 


RETURN 

END 


$ 
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PROGRAM  K 


*t-m\  |4  • 


alfc  4) ll.  «l_ 
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sample  input  program  for  subroutine  KFLUTR 
present  limit  40  DOF/panels  combinations 

C0MM0N/FL2/N , RC , VS , VI , VE , OHMT , RNF ( 4 0 ) , EVECT ( 4 0 , 4 0 ) 

READ  (5,*)  N,  RC 

READ  (5,*)  VS < VE ,  VI , OHMT 

write  header 

WRITE  (6,*)  K-METHOD  RESULTS" 

WRITE  (6,*) 

CALL  KFLUTR 


DO  10  I-1,N 
WRITE  (6,*) 
WRITE  (6,*) 

WRITE  (6,*) 
DO  20  J-1,N 
20  WRITE  (6,*) 
10  WRITE  (6,*) 


NATURAL  FREQUENCY  ",J,"  -  ”,RNF{J) 


EIGENVECTOR  ",J," 


',EVECT(I,J) 


Sample  10  program  for  KFLUTR 


MAILRN 


SUBROUTINE  MAILRN 


c  this  subroutine  calculates  the  change  in  a  metallic  wing  AOA 
c  resulting  from  a  one  radian  change  in  aileron  deflection 
c  left  wing  only 

DIMENSION  COSMAT( 20 ) , S INMAT { 20 ) , ALPHAD( 20) , AALPHA( 20) 

DIMENSION  EP(20, 20) ,  EI0( 20, 20) , El 3 (20, 20) 

C0MM0N/M1/NP , Q, CM( 20 ) , CMDEL( 20 ) , SHAPE ( 20 ) , SWEEP ( 20 ) 

COMMON/M2/H( 20),EI(20),GJ(20),C(20),E(20,20), DALPHA( 20 ) 

c  NP  -  numbeb  of  spanwise  panels  in  wing  semi-span 

c  Q  -  dynamic  pressure  for  flight  condition  (psi) 

c  SHAPE  -  deflection  of  aileron  segment  on  panel,  negative 

c  and  normalized  to  that  with  the  greatest  deflection 

c  -1.0  if  deflects  same  amount 

c  -0.5  if  deflects  half  as  much 

c  CM  -  partial  derivative  of  section  lift  coefficient  wrt 

c  control  deflection  divided  by  the  partial  wrt  AOA 

c  CMDEL  -  partial  derivative  of  pitching  moment  wrt  control  deflection 

c  of  aileron  segment  on  panel 

c  H  -  y-axis  width  of  panel  (in.) 

c  C  -  aerodynamic  chord  at  middle  of  panel  ( in . ) 

c  SWEEP  -  sweep  of  structural  reference  axis  of  panel  (deg) 

c  El  -  bending  stiffness  of  wing  box  beam  (psi) 

c  GJ  -  torsional  stiffness  of  wing  box  beam  (psi) 

DO  10  I-1,NP 
c  change  to  radians 

SWP- SWEEP ( I ) * ACOS ( - 1 . 0 ) /180 . 0 
c  diagonal  terms  of  eqns  B23  and  B24  of  NACA  TN  3030 
COSMAT ( I ) “COS ( SWP ) 

10  SINMAT(I)-SIN(SWP) 

c  initializing  matrices 
DO  30  I-1,NP 
DO  20  J-1,NP 
E(I,J)-0.0 
EI0( I , J )-0 . 0 
20  EP( I , J ) -0 . 0 
30  CONTINUE 

NPM1-NP-1 

c  constructing  [10]  matrix,  page  88  of  NACA  TN  3030 
c  upper  triangular  terms 
DO  50  1-1 , NPM1 
II-I+l 

DO  40  J-II , NP 
40  EI0 ( I , J)-l . 0 
50  CONTINUE 
c  diagonal  terms 
DO  60  I-1,NP 
60  EI0( I, I )_0. 500 

c  [13]  of  page  88  of  NACA  TN  3030  is  just  ranspose  of  [10] 

DO  80  I ■ 1 , NP 
DO  70  J-1,NP 
70  EI3 ( I , J)“EI0( J , I ) 
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80  CONTINUE 

c  eqn  F6  of  NACA  TN  3030 
DO  90  I-1,NP 

E( I , I )-H< I ) *SINMAT< I ) *SINMAT( I )/( C0SMAT( I ) *EI ( I ) ) 

90  E(I,I)-E(I,I)+H(I)*COSMAT(I)/GJ-(I) 

c  pre-multiply  by  [10] 

DO  120  I-1,NP 
DO  110  J-1,NP 
SUM1-0 . 0 
DO  100  K-l/NP. 

100  SUM1“SUK1+EI0( I ,K)*E(K/J) 

110  EP(I,J)-SUM1 
120  CONTINUE 

c  post-multiply  by  [13] 

DO  150  I-1,NP 
DO  140  J-1,NP 
SUM1-0 . 0 
DO  130  K-1,NP 

130  SUM1«SUM1+EP(I,K)*EI3(K,J) 

140  E(I,J)-SUK1 
150  CONTINUE 

DO  170  I-1,NP 
DO  160  J-1,NP 

160  E( I, J)“E( I,J)*H(J)*(C(J)**2) 

170  CONTINUE 

DO  190  I-1,NP 
SUM1-0.0 
DO  180  J-1,NP 

180  SUM1_SUM1+E( I, J) *CMDEL{ J) *SHAPE{ J) 

c  ALPHAD  Is  change  in  AOA  due  to  change  in  section  pitching  moment 
c  from  twist  produced  by  one  radian  aileron  deflection 
c  eqn  C-8  of  AFFDL-TR-79-3087 
190  ALPHAD ( I ) “Q*SUM1 

c  AALPHA  is  the  apparent  change  in  AOA  of  wing  section  due  to  one  radian 
c  aileron  deflection  (change  in  chamber  of  mean  chord  line) 
c  eqn  39  from  AFFDL-TR-3087 
DO  200  I-1,NP 
AALPHA(  I ) -SHAPE ( I )  *CM(  I ) 

c  DALPHA  is  the  total  AOA  change  due  to  one  rad.  change  in  aileron  deflection 
c  eqn  39  from  AFFDL-TR-79-3087 

200  DALPHA ( I ) -ALPHAD ( I )+ AALPHA ( I ) 

RETURN 

END 
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sample  run  for  subroutine  MAILRN 
present  limit  twenty  semi-span  panels 


I 


CCMM0N/M1/NP , Q,  CH(  20 ) ,  CMDEL(  20 ) •,  SHAPE(  20 )  ,  SWEEP  (  20 ) 
C0MM0N/M2/H  <20),EI(20),GJ(20),C(20),E(20,20), DALPHA ( 20 ) 

READ  (5,*)  NP,Q 
DO  10  1-1, NP 

READ  (5,*)  C(I),H(I),EI(I) ,GJ { I ) 

10  READ  (5,*)  SWEEP ( I ) , CM( I ) , CMDEL ( I ) , SHAPE ( I ) 

WRITE  (6,*)  "MAILRN  RESULTS" 

WRITE  (6,*) 

WRITE  (6,*)  "PANEL","  ", "DALPHA" 

CALL  MAILRN 
DO  20  I-1,NP 

20  WRITE  (6,*)  I ,DALPHA( I ) 

END 


Sample  10  program 


for  MAILRN 


10  . 
9.0 

1724 

4.5 

.  17478E+06 

. 56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

12.0 

4.5 

.  17478E+06 

.  56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

15.0 

4.5 

.  17478E+06 

. 56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

18.0 

4.5 

.  17478E+06 

.  56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

21.0 

4.5 

.  17478E+06 

. 56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

24.0 

4.5 

.  17478E+06 

.  56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

27.0 

4.5 

.  17478E+06 

.  56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

30.0 

4.5 

.  17478E+06 

. 56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

33.0 

4.5 

.  17478E+06 

. 56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

36.0 

4.5 

.  17478E+06 

. 56720E+05 

18.4 

0.5854 

-0.64 

-1.0 

Sample  input  for  lAILRN 


MAILRN  RESULTS 

PANEL  DALPHA 

1  1.064244509E-01 

2  1 . 026782990E-01 

3  9.318208694E-02 

4  7.479965687E-02 

5  4 . 369765520E-02 

6  -4 . 654288292E-03 

7  -7 . 548326254E-02 

8  -1.747136116E-01 

9  -3.089663982E-01 

10  -4.855598211E-01 


Sample  output  for  MAILRK 


MDIVRG 


This  subroutine  performs  the  same  task  as  CDIVRG  but  for  a  metallic 


wing. 
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SUBROUTINE  MDIVRG 


c  this  subroutine  calculates  the  divergence  dynamic  pressure  (psi) 
c  and  divergence  speed  (mph)  for  a  metallic  wing 

COMMON/MD/QDIV , VDIV , RHO ,  AO ,  SWEEP ,  RL, TR , C , El , GJ , E, AR 

c  RHO  -  air  density  at  flight  condition  (lbf*sec**2/£t**4 ) 

c  AO  -  2 -dimensional  section  lift-curve  slope  for  section, 

c  same  full  span 

c  SWEEP  -  sweep  of  wing  reference  axis,  positive  aft  (deg.) 

c  RL  -  length  of  semi-span  along  reference  axis  (in.) 

c  TR  -  taper  ratio  of  semi-span 

c  C  -  root  chord  perpendicular  to  reference  axis  (in.) 

c  El  -  bending  stiffness,  at  root  if  tapered  wing  (psi) 

c  GJ  -  torsional  stiffness,  at  root  if  tapered  wing  (psi) 

c  E  -  y-axis  distance  between  reference  axis  and  aerodynamic 

c  center,  at  root  if  tapered  wing  (in.) 

c  AR  -  semi-span  aspect  ratio 

NDV-0 

c  conversion  to  radians 

SWP-SWEEP*ACOS ( -1 . 0 )/180 . 0 

ARG1”(GJ/C) * (RL/E) 

c  correction  of  2-D  lift-curve  slope  for  planform  effects 
c  eqn  4a  of  NACA  TN  1680 

AOC-AO*AR/(AR+4*COS(SWP) ) 

ARG2-C* (RL**3 ) *A0C* (C0S( SWP) *  *2 ) 

ARG3-ARG1/ARG2 

c  linearized  approximation  for  table  on  page  55  of 
c  AFFDL-TR-78-116 

RKl-(6 . 1301-TRJ/2 .0801 
RK2-( 2 . 8149-TR) /4 .4114 

c  divergence  dynamic  pressure  (psi) 
c  eqn  7  of  NACA  TN  1680 

QDIV-ARG3*RKl/( 1-RK2*ARG1*TAN(SWP )/EI ) 

c  conversion  to  inches 
RHO-RHO/(12**4) 

c  divergence  speed  (in/sec)* *2 
VDIV- 2 . 0 ‘QDIV/RHO 

c  test  for  no  divergence  (negative  divergence  velocity) 

IF  (VDIV. LT. 0.0)  NDV-1 
IF  (VDIV. LT. 0.0)  GO  TO  10 

c  coversion  to  feet 

VDIV-SQRT(VDIV)/12 . 0 
c  conversion  to  mph 

VDIV- ( 3600 . 0*VDIV/5280 . 0 ) 


10  RETURN 


PROGRAM  MDV 


c  sample  run  for  subroutine  MDIVRG 

COMMON/MD/QDIV, VDIV,  RHO,  AO ,  SWEEP ,  RL,  TR ,  C ,  El ,  GJ ,  E,  AR 

READ  (5,*)  RHO, AO, SWEEP, RL,TR 
READ  (5,*)  C,EI,GJ,E,AR 

CALL  MDIVRG 

IF  (NDV.GT.O)  WRITE  (6,*)  "THIS  WING  WILL  NOT  DIVERGE" 

WRITE  (6,*)  "DIVERGENCE  DYNAMIC  PRESSURE  (PSI)  -  " ,QDIV 
WRITE  (6,*) 

WRITE  (6,*)  "DIVERGENCE  SPEED  (MPH)  -  " ,VDIV 
END 

Sample  10  program  for  MDIVRG 


0.002308  6.28  18.4  47.4  0.2 

36.13  248000.  80460.  9.375  4.0 


Sample  input  for  IIDIVRG 


DIVERGENCE  DYNAMIC  PRESSURE  (PSI)  -  2 . 901382279E-03 

DIVERGENCE  SPEED  (MPH)  -  1 . 297326851E+01 

Sample  output  for  XDIVRG 


MFLEX 


This  subroutine  performs  the  same  function  as  CFLEX  but  for  a 
metallic  box  beam  wing. 


SUBROUTINE  MFLEX 


c  this  subroutine  determines  the  metallic  wing  flexibility  matrix 
c  [S] ,  left  wing  only 

DIMENSION  D(20) ,F(20) ,M(20, 20) ,T(20, 20) ,U(20,20) 

DIMENSION  TRANS 1( 20 ) , TRANS 2 ( 20 ) , A( 20 , 20 ) , B ( 20 , 20 ) 

DIMENSION  COSMAT( 20 ) , SINMAT ( 20 ) , R1 ( 20 , 20 ) , R2 ( 20 , 20 ) 

C0MM0N/M1/S( 20/ 20) , X( 20) , Y( 20) , H( 20) , E( 20) , SWEEP ( 20) 
COMMON/M2/NP ,  El  ( 20 ) ,  GJ (  20 ) 

REAL  M 

c  NP  -  number  of  panels  in  semi-span 

c  x  -  x-axis  intercept  of  panel  midchord  &  reference  axis  (in.) 

c  Y  -  as  in  X  but  for  y-axis 

c  H  -  width  of  panel  along  y-axis  (in.) 

c  E  -  x-axis  distance  from  reference  axis  to 

c  aerodynamic  center  of  panel  (in.) 

c  SWEEP  -  sweep  of  reference  axis  on  panel  from  y-axis 

c  positive  aft  (deg) 

c  El  -  bending  stiffness  of  box  beam  (psi) 

c  GJ  -  torsional  stiffness  of  box  beam  (psi) 

NPMl-NP-1 

DO  10  I-1,NPM1 

c  elements  of  matrices  below 
D(I)-Y(I)-Y(I+1) 

10  F(I)-X(I)-X(I+1) 

DO  20  I-1,NP 

c  conversion  to  radians 

SWP-SWEEP ( I ) *AC0S ( -1 . 0 ) /180 . 0 

c  NACA  TN  3030  eqn  B23  and  B24,  diagonal  terms  only  (nonzero) 

COSMAT ( I ) “COS ( SWP ) 

20  SINMAT( I)-SIN(SWP) 

c  Initializing  matrices 
DO  40  I-1,NP 
DO  30  J-1,NP 
U(I,J)-0.0 
R1 ( I / J) “0 . 0 
30  R2( I , J) "0 . 0 
40  CONTINUE 

c  nonzero  elements  of  C  (see  below) 

DO  70  1-2, NP 

IM1-I-1 

DO  60  J-1,IM1 

FSUM-0 . 0 

DSUM-0.0 

DO  50  K-J/IMl 

DSUM-DSUM+D( K ) 

50  FSUM- FSUM+  F ( K ) 

c  TN  3030  eqn  B26  and  B27 

R 1 ( I , J ) -DSUM* COSMAT ( I ) 

R2 ( I , J ) -DSUM* S INMAT ( I ) 


# 
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c  eqn  B25  from  NACA  TN  3030 
60  U(I,J)-E(J)-FSUM 
70  CONTINUE 
c  diagonal  terms 
DO  80  I-1,NP 

R1(I,I)-H(I)/(8.0*COSMAT(I) >-E{l)»SINMAT(I)/2.0 
80  R2(I,I)“E(I) *COSMAT( I )/2 . 0 

c  initializing 

DO  100  I-1,NP 
DO  90  J“1/NP 
M(I,J)-0.0 
90  T(I,J)-0.0 
100  CONTINUE 

c  TN  3030  eqn  B34  and  B3S 
c  diagonal  terms 

DO  110  I-l , NP 
M(I,I)—  SINMAT(I)/2.0 
110  T(I,I)-COSMAT(I)/2.0 
DO  130  I-1,NPM1 
c  of  f-diagonal  terms 
IP1-I+1 

DO  120  J-IP1,NP 
M(I,J>  —  SINMAT(J) 

120  T  ( I ,  J ) -COSMAT ( J ) 

130  CONTINUE 

c  *****  MUST  PROVIDE  THE  STRUCTURAL  PROPERTIES  EI,GJ  *’ 

c  following  is  eqn  B-37  from  NACA  TN  3030 
DO  140  I-1,NP 

TRANS1 ( I ) -H ( I ) /COSMAT ( I ) /El  ( I ) 

140  TRANS2(l)-H(I)/COSMAT(I)/GJ(l) 

DO  160  I-1,NP 
DO  150  J-1,NP 

A(I,J)-(COSMAT(I)»Rl(I,J)-SINMAT(I)*U(I,J) )*H(J) 

150  B(I,J)-(SINMAT(I)*R2(I,J)+C0SMAT(I)*U(I,J) )*H(J) 

160  CONTINUE 

DO  190  I-1,NP 

DO  180  J-1,NP 

SUM1-0.0 

SUM2-0.0 

DO  170  K-1,NP 

SUM1-SUM1+M( I , K )  *  A  ( I ,  J ) 

170  SUM2-SUM2+T(I,K)*B(I,J) 

c  fexibility  matrix 
180  S(I,J)-SUM1+SUM2 
190  CONTINUE 

RETURN 

END 
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PROGRAM  MF 

sample  run  for  subroutine  MFLEX 
present  limit  twenty  semi-span  panels 

CQMM0N/M1/S ( 2 0 , 2 0 ) , X ( 2 0 ) , Y { 2 0 ) , H ( 2 0 ) , E ( 2 0 ) , S WE E P ( 2 0 ) 
COMMON/M2/NP ,E1(20),GJ(20) 

READ  (5,*)  NP 
DO  10  I-1,NP 

READ  (5,*)  X(I),Y(I),H(I),E(I), SWEEP ( I ) 

10  READ  (5,*)  EI'(  I )  ,GJ(  I) 

CALL  MFLEX 

WRITE  (6,*)  ( (S(I,J) ,J-1,NP) , I-1,NP) 

END 


Sample  10  program  for  MFLEX 


10 


14.22  42.75  4.5  1.866  18.4 

91165.  29584. 

12.72  38.25  4.5  2.657  18.4 

91165.  29584. 

11.23  33.75  4.5  3.447  18.4 

91165.  29584. 

9.73  29.25  4.5  4.237  18.4 

91165.  29584. 

8.23  24.75  4.5  5.028  18.4 

91165.  29584. 

6.74  20.25  4.5  5.818  18.4 

91165.  29584. 

5.24  15.75  4.5  6.609  18.4 

91165.  29584. 

3.74  11.25  4.5  7.399  18.4 

91165.  29584. 

2.25  6.75  4.5  8.189  18.4 

91165.  29584. 

0.75  2.25  4.5  6.980  18.4 

91165.  29584. 


Sample  input  for  MFLEX 


7.51596355  0 . OOOOOOOOOE+OO  0 . OOOOOOOOOE+OO  0 . 000000000E+00 

0. 000000000E+00  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. 000000000E+00 

0.000000G00E+00  0 . OOOOOOOOOE+OO  -1 . 864554596E+01  1 . 245434570E+01 

0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO 
0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO 
-9.554393005E+01  1 . O58177185E+01  1 . 603820801E+01  0 . OOOOOOOOOE+OO 

0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO 
0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  -1. 516435852E+02  -5 . 966799164E+01 

3.198589325E+01  1 . 827564812E+01  0 . OOOOOOOOOE+OO  0 . OOOOOOOOOE+OO 

0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO 
-1.865620880E+02  -1 . 087365570E+02  -3 . 118328857E+01  4 . 661748505E+01 

1.917135239E+01  0 . OOOOOOOOOE+OO  0 . OOOOOOOOOE+OO  0 . OOOOOOOOOE+OO 

0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  -2. C00968475E+02  -1 . 364214630E+02 

-7 . 296876526E+01  -9.31358719  5 . 4 36182785E+01  1 . 871510315E+01 

0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO 
-1. 9 26 97 96 75 E+ 02  -1 . 4 31726532E+02  -9 . 382056427E+01  -4 . 431097412E+01 

5.21434784  5.456641769E+01  1 . 6 91540909E+01  0 . OOOOOOOOOE+OO 

0. OOOOOOOOOE+OO  0. OOOOOOOOOE+OO  -1 . 641178894E+02  -1 . 2874 26605E+02 

-9.349117279E+01  -5 . 812718964E+01  -2 . 275194931E+01  1 . 249953079E+01 

4 . 787477112E+01  1 . 376546192E+01  0 . OOOOOOOOOE+OO  0 . OOOOOOOOOE+OO 

-1.142891388E+02  -9 . 306398773E+01  -7 . 191310120E+01  -5 . 069469833E+01 

-2.946955872E+01  -8.31867027  1 . 290647411E+01  3 . 4124 86267E+01  9.26909351 

0. OOOOOOOOOE+OO  -4.339167023E+01  -3 . 631662750E+01  -2 . 926632690E+01 

-2. 219353104E+01  -1 . 511848450E+01  -8.06818771  -9 . 931392670E-01  6.07965755 

1.31299 54 34 E+01  3.42672920 


Sample  output  for  MFLEX 
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V*v-  ^  .%  \  A  .SVAASAAA 


MODAL 


I 


This  subroutine  places  the  mass,  stiffness,  and  aerodynamic 
operators  into  modal  form.  The  sample  for  this  subroutine  is  taken  from 
Reference  11. 
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SUBROUTINE  MODAL 


c  this  subroutine  places  the  mass,  stiffness  and  aerodynamics 
c  matrices  in  modal  form 

DIMENSION  MODT( 20,20) , TEMPI (20, 20 ) ,  TEMP2 ( 20 , 20 ) ,EVECTT(  20,20) 
DIMENSION  TIMP3(20,20),TEMP4(20,20) 

CQMMON/CM/N,MOD( 20, 20) , A( 20, 20) ,  RM( 20, 20) , RK( 20, 20 ) , EVECT(  20,20) 

REAL  MOD,MODT 

c  N  -  order  of  matrices 

c  A  -  unsteady  aerodynamics  matrix  to  be  placed  in  modal  form, 

c  original  A  replaced  by  modal  form 

c  RM  -  mass  matrix  to  be  placed  in  modal  form, 

c  original  RM  replaced  by  modal  form 

c  RK  -  stiffness  matrix  to  be  placed  in  modal  form, 

c  original  RM  replaced  by  modal  form 

c  EVECT  -  normalized  eigenvector  matrix 

c  transpose  of  normalized  eigenvector  matrix 
DO  20  I-1,N 
DO  10  J-1,N 

10  EVECTT(I,J)-EVECT(J,I) 

20  CONTINUE 

c  pre-multiply  by  transpose  of  normalized  matrix 
DO  50  I-1,N 
DO  40  J-1,N 
SUM1-0.0 
DO  30  K-1,N 

30  SUM1-SUM1+EVECTT(I,K)*RM(K,J) 

40  TEMPI ( I , J)“SUM1 
50  CONTINUE 

c  post-multiply  by  normalized  matrix 
DO  80  l-l,N 
SUM2-0 . 0 
DO  60  J-1,N 

SUM2-SUM2+TEMP 1 ( I , J ) *EVECT (J, I) 

60  CONTINUE 

c  diagonal  terms  must  equal  1.0 
RMULT- 1/SQRT ( SUM2 ) 

DO  70  K-l , N 

70  MOD(K, I)-RMULT»EVECT(K,  I) 

80  CONTINUE 

c  transpose  of  modal  matrix 
DO  100  I-1,N 
DO  90  J-1,N 
90  MODT( I , J)-M0D( J, I ) 

100  CONTINUE 

c  for  modal  mass  matrix  ( [M]  -  [I]) 
c  pre-multiply  by  transpose  of  modal  matrix 
DO  130  I-1,N 
DO  120  J-1,N 
SUM3-0.0 
DO  110  K-1,N 
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110  SUM3-SUM3+MODT(I,K)»RM(K,J) 

120  TEMP2(I,J)-SUM3 
130  CONTINUE 

c  post-multiply  by  modal  matrix 
DO  160  l-l, N 
DO  150  J-1,N 
SUM4-0.0 
DO  140  K-1,N 

140  SUM4-SUM4+TEMP2(I,K)*MOD(K,J) 
c  modal  matrix 
150  RM( I , J) “SUM4 
160  CONTINUE 

c  for  modal  stiffness  matrix  (diagonal  elements  are  squares  of 
c  natural  frequencies) 

c  pre-multiply  by  transpose  of  modal  matrix 
DO  190  I-1,N 
DO  180  J-1,N 
SUM5-0 . 0 
DO  170  K-1,N 

170  SUM5-SUM5+MODT ( I , K ) *RK ( K , J ) 

180  TEMP3 ( I , J)-SUM5 
190  CONTINUE 

c  post-multiply  by  modal  matrix 
DO  220  I-1,N 
DO  210  J-1,N 
SUM6-0 . 0 
DO  200  K-1,N 

200  SUM6-SUM6+TEMP3 ( I , K) *MOD(K, J) 
c  modal  matrix 
210  RK(  I , J )  -SUM6 
220  CONTINUE 

c  for  modal  aerodynamics  matrix 
c  pre-multiply  by  transpose  of  modal  matrix 
DO  250  I-1,N 
DO  240  J-1,N 
SUM5-0 . 0 
DO  230  K-l , N 

230  SUM7-SUM7+MODT(I,K)*A(K,J) 

240  TEMP4 ( I ,  J ) -SUM7 
250  CONTINUE 

c  post-multiply  by  modal  matrix 
DO  280  I-1,N 
DO  270  J-1,N 
SUM8-C . 0 
DO  260  K-1,N 

260  SUM8-SUM8+TEMP4 ( I , K) *MOD( K, J ) 
c  modal  matrix 
270  A(I,J)-SUM8 
280  CONTINUE 


RETURN 

END 


PROGRAM  MD 


c  sample  run  for  subroutine  MODAL 
c  present  limit  twenty  semi-span  nodes 

COMMON/CM/N, MOD( 20 , 20 ) , A( 20 , 20 ) , RM( 20 , 20 ) , RK( 20 , 20 ) , EVECT( 20 , 20 ) 

REAL  MOD 
READ  (5,*)  N 

READ  (5,*)  ( (EVECT(I,J) ,J-1,N) , I-1,N) 

READ  (5,*)  <<A(I,J),J-1,N),I-1,N) 

READ  (5,*)  ( (RM( I , J) , J“1 , N) ,  I”1 , N) 

READ  <5,«)  {(RK(I,J),J-1,N),I-1,N) 

CALL  MODAL 

WRITE  (6,*)  (<A(I,J),J-1,N),I-1,N) 

WRITE  ( 6 , *  > 

WRITE  (6,*)  ((RM<I,J),J-1,N),I-1,N) 

WRITE  ( 6 / * ) 

WRITE  (6,*)  ((RK(I,J),J-1,N),I-1,N) 

END 


Sample  10  program  for  MODAL 


1.0000 

1 . 0000 

1 . 0000 

1.8608 

0.2542 

-2.1152 

2.1617 

-0.3407 

0.6791 

7.4936 

-2.2078 

-4.0367 

-2.0204 

7.3173 

-2.2471 

-3.0970 

-2.1373 

7.2336 

1.  0. 

0. 

0.  1. 

0. 

0.  0. 

2. 

2.  -1. 

0. 

-1.  3. 

-2. 

0.  -2. 

2. 

Sample  input  for  MODAL 


2.06189895  -1.37522089  -3 . 637984395E-01  1 . 037617207E+01 

-3.59587264  3.95323229  6.34809971  3.50999427 


9.92081356 


1.00000024  7.808208466E-06  6 . 020069122E-06  7 . 808208466E-06  1.00000012 

-1 . 467317343E-04  6 . 020069122E-06  -1. 467317343E-04  9. 990999404E-01 

1.391941309E-01  1 . 043081284E-06  4 . 842877388E-06  1.013278961E-06 

1.74589849  -4 . 659593105E-04  4 . 768371582E-06  -4 . 659891129E-04  4.11490726 


Sample  output  for  MODAL 


NFREQ 


This  subroutine  calculates  the  unforced  natural  frequencies  and 
normal  modes  of  a  system  given  the  stiffness  and  mass  matrices.  The 
sample  for  this  subroutine  is  taken  from  Reference  11. 


SUBROUTINE  NFREQ 


c  this  subroutine  calculates  the  unforced  natural  frequencies  of 
c  the  system  (eigenvalues)  and  the  corresponding  normalized  modes 
c  eigenvectors ) 

DIMENSION  D(20, 20) ,AA(20, 20) 

COMMON/CF/N,RM(20,20) ,RK(20,20) ,RNF(20) ,EVECT(20,20) 

REAL  LAMBDA ( 20) 

c  N  -  number  of  nodes  in  semi- span  (order  of  matrix) 

c  RM  -  mass  matrix 

c  RK  -  stiffness  matrix 

c  create  dynamical  matrix 

c  *****  MUST  PROVIDE  MEANS  FOR  INVERVING  [K]  ***** 

c  OR  JUST  READ  IN  THE  FLEXIBILITY  MATRIX  fAA) 

DO  30  I-1,N 

DO  20  J-1,N 

SUM-0.0 
DO  10  K-l , N 

c  [D]-[K]inv* [M]  the  dynamical  matrix 
10  SUM-SUM+AA(I,K)*RM(K,J) 

20  D(I,J)-SUM 
30  CONTINUE 

c  solve  [D]  for  eigenvalues 

c  *****  PROVIDE  ROUTINE  FOR  EIGENSOLUTION  ***** 

DO  40  I— 1 , N 

c  (LAMBDA)  is  array  of  eigenvalues  in  descending  order 
40  RNF( I )-l/SQRT(LAMBDA(  I ) ) 

c  [evect]  is  matrix  of  eigenvectors  in  decending  order 
c  normalizing  eigenvector  matrix 
DO  60  J-l , N 
DO  50  I-l , N 

IF  (I.EQ.l)  FIRST- EVECT ( 1 ,  J ) 

50  EVECT ( I , J)-EVECT( I , J)/FIRST 
60  CONTINUE 

RETURN 

END 
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PROGRAM  NF 


c  sample  run  for  subroutine  NFREQ 
c  present  limit  twenty  semi-span  nodes 

COMMON/CF/N, RM( 20 , 20 ) , RK( 20, 20 ) , RNF( 20 ) , EVECT( 20,20) 

READ  (5,*)  N 

READ  (5,*)  ((RM(I,J).J-1,N),I-1,N) 

READ  (5,*)  <<RX<I,J),J-1,N),I-1,N) 

CALL  NFREQ 

DO  10  I-1,N 

IF  (RNF(I) .EQ.0.00)  WRITE  (6,*)  "RIGID  BODY  MODE” 

10  WRITE  (6,*)  "NATURAL  FREQUENCY  *,I,"  -  ”,RNF(I) 
WRITE  (6,  *  ) 

DO  30  J-1,N 

WRITE  (6,*)  "EIGENVECTOR  ",J,"  -  " 

DO  20  I-1,N 

20  WRITE  (6,*)  "  ” , EVECT ( I , J ) 

30  CONTINUE 

END 


Sample  10  program  for  NFREQ 
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1.  0.  0. 

0.  1.  0. 

0.  0.  2. 

2.  -1.  0. 

-1.  3.  -2. 

0.  -2.  2. 


Sample  input  for  NFREQ 


NATURAL  FREQUENCY  1  -  3 . 730B72571E-01 

NATURAL  FREQUENCY  2  -  1.32132459 

NATURAL  FREQUENCY  3  -  2.02852488 

EIGENVECTOR  1  - 

1.00000000 

1.86080575 

2.16170192 

EIGENVECTOR  2  - 

1.00000000 

2.541011870E-01 

-3.406651318E-01 

EIGENVECTOR  3  - 

1.00000000 
-2.11490679 
6. 789628267 E~01 


Sample  output  for  NFREQ 


PKFLUTR 


* 

This  subroutine  performs  iterative  flutter  computations  given  the 
aeroelastic  operators  using  the  p-k  method.  No  10  program  or  sample  is 
appropriate  for  this  subroutine. 


o  o 


SUBROUTINE  PKFLUTR 

c  this  program  performs  simple  flutter  computations  by  the  PX-method 
c  assumes  no  free-body  modes  in  operators 

DIMENSION  RM(40,40),RK(40,40),A(40,40),OHM(40) 

C0MM0N/FL3/N , RC , VS , VI , VE , OHMT , RNF ( 4 0 ) , EVECT ( 4 0 , 4 0 ) 

COMPLEX  A,RMAT(40,40) ,RLAMBDA(40) 

c  N  -  number  of  DOFs  multiplied  by  number  of  nodes, 

c  dimension  of  square  operator  matrices 

c  RC  -  root  aerodynamic  chord  { in . ) 

c  VS  -  starting  velocity  (mph),  greater  than  zero 

c  VE  -  final  velocity  for  analysis  (mph) 

c  VI  -  velocity  increment  (mph) 

c  OHMT  -  tolerance  on  frequency  for  match 

***  PROVIDE  DATA  AND  SUBROUTINES  TO  CALCULATE  OPERATORS  *** 
INERTIA  [RM] ,  STRUCTURE  (RX) ,  AND  AERODYNAMIC  [A] 

CALL  STRUC 
CALL  MASS 

CALL  NFREQ 

C  ***  PRODUCES  ARRAY  OF  NATURAL  FREQUENCIES  (RNF)  *** 

C  AND  MATRIX  OF  NATURAL  MODES  IN  DESCENING  ORDER  [EVECT] 

c  top  of  velocity  loop 
DO  60  I-VS, VE, VI 

c  velocity 
V-I 

C  top  of  mode  loop 
DO  50  J-1,N 

MODE-J 

c  using  natural  frequency  as  initial  guess 
IF  (V.EQ.VS)  OHM (MODE) -RNF (MODE) 

c  top  of  frequency  loop,  10000  iterations  permitted 
DO  30  KK-1, 10000 

c  reduced  frequency,  k 

RKK-RC *  OHM ( MODE )  /  ( 2  «  V ) 

c  (A]  expecting  k  as  principal  variable 
CALL  AERO 

c  replace  operators  with  modal  form 
CALL  MODAL 

DO  20  L-1,N 
DO  10  K-l , N 

10  RMAT(L,K)“RX(L,K)-A(L,K) 

20  CONTINUE 


***  PROVIDE  MEANS  FOR  PERFORMING  AN  EIGENVALUE  DECOMPOSITION 
ON  COMPLEX  MATRIX  [RMAT] 

(RLAMBDA)  is  array  of  eigenvalues  in  descending  order 
each  has  form  (ohm  +  i  g*ohm) 

OHML- REAL (RLAMBDA (MODE) ) 

DIF” ABS  (OHML-OHM(  MODE ) ) 

check  for  suitable  match  of  frequency 
IF  (DIF.LE.OHMT)  GO  TO  40 

30  OHM (MODE) -OHML 

WRITE  (6,*)  "(NO  CONVERGENCE  FOR  MODE  "  , MODE ,  "  )" 

GO  TO  50 

solving  for  system  damping 

40  G-AIMAG (RLAMBDA (MODE)) /REAL ( RLAMBDA ( MODE )  ) 

WRITE  (6,*)  "Mode  ",J,"  Vel.  (MPH)  -  H,V,"  g  -  ”,G, 

1"  freq.  -  " ,OHM(MODE) 

50  CONTINUE 

60  CONTINUE 


RETURN 


PROGRAM  PK 


# 

c  sample  input  program  for  subroutine  PKFLUTR 
c  present  limit  40  DOF/panels  combinations 

COMMON/FL3//N/RC,VS,VI,VE,OHMT,RNF(40) ,EVECT(40, 40) 

READ  ( 5 ,  * )  N, RC 

READ  (5,*)  VS,VE,VI,OHMT 

c  write  header 

WRITE  { 6 ,*)  "  PK-METHOD  RESULTS" 

WRITE  (6,*) 

CALL  PKFLUTR 

DO  10  I-1,N 

WRITE  (6,*)  "  NATURAL  FREQUENCY  ",J,"  -  ”,RNF(J) 

WRITE  (6,*) 

WRITE  (6,*)  "  EIGENVECTOR  \J,"  -  " 

DO  20  J-1,N 

20  WRITE  (6,*)  H  " - EVECT ( I , J ) 

10  WRITE  (6,*) 

END 


Sample  10  program  for  PKFLUTR 


RIGDROL 


■■A 


v 


.**a 


This  subroutine  performs  the  same  function  as  FLEX ROL  but  for  a 
rigid  wing.  The  flexibility  matrix  and  the  total  angle  of  attack  due  to 
aileron  deflection  need  not  be  provided. 
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*.* 

V. 

;V 


SUBROUTINE  RIGDROL 


c  this  subroutine  calculates  the  aileron  effectiveness  (helix  angle), 
c  the  location  of  the  center  of  pressure,  and  the  coefficient  of  lift 
c  divided  by  wing  incidence  (rad.)  for  a  rigid  wing 

DIMENSION  RDAMP ( 20 ) , RAIL( 20 ) , A( 20 , 20 ) , SR( 20 ) , XV ( 20 ) 

CQMMON/R1/AREA , SSPAN , RLIFT , RPB2V , XCP , YCP , AIS ( 20 , 20 ) , NP 
C0MM0N/R2/X( 20 ),Y(20),C(20),E(20),H(20), SHAPE ( 20 ) , Q, RL 
COMMON/R  3 /CM ( 20 ) , CMDEL ( 20 ) , SLOPE ( 20 ) , AIA ( 20 , 20 ) , ZAOA ( 20 ) 

c  NP  -  number  of  spanwise  panels  in  semi-span 

c  AREA  -  planform  area  of  wing  (sq  in.) 

c  SSPAN  -  semi-span  of  wing  (in.) 

c  ZAOA  -  panel  incidence  from  zero-lift  line,  includes  jigged  twist 

c  Q  -  free-stream  dynamic  pressure  (psi) 

c  X  -  x-axis  intercept  of  panel  midchord  &  reference  axis  (in.) 

c  Y  -  as  in  X  but  for  y-axis 

c  C  -  x-axis  lenth  of  aerodynamic  chord  line  of  panel  (in.) 

c  E  -  x-axis  distance  between  panel  aerodynamic  center  and  structural 

c  reference  axis  (in.) 

c  H  -  y-axis  width  of  panel  (in.) 

c  CM  -  partial  derivative  of  the  section  lift  coefficient  wrt 

c  control  deflection  divided  by  the  partial  wrt  AOA 

c  CMDEL  -  partial  derivative  of  the  section  pitching  moment 

c  wrt  control  deflection 

c  SHAPE  -  aileron  segment  deflection  normalized  to  largest  value 

c  and  negative,  example: 

c  -1.0  if  segments  deflects  same  amount 

c  -0.5  if  deflects  half  as  much 

DO  10  I**l ,  NP 

c  XV  is  x-axis  distance  to  the  quarter-chord  of  panel 
10  XV( I )“X( I )-E( I ) 


NCT-0 

c  ****  PROVIDE  THE  INVERTED  ANTI-SYMMETRICAL  AIC  MATRIX  [AIA]  ***** 
c  first  time  through 

c  ****  PROVIDE  THE  INVERTED  SYMMETRICAL  AIC  MATRIX  [AIS]  •*** 
c  second  time  through 

100  DO  30  I-1,NP 
DO  20  J-1,NP 

IF  (NCT.LE.0)  A(I,J)-AIA(I,J) 

20  IF  (NCT.GT.0)  A( I, J)-AIS( I, J) 

30  CONTINUE 

c  initializing 

DO  50  I-1,NP 
SUM1-0.0 
SUM2-0 . 0 
SUM3-0.0 


c  following  equations  for  left  wing  only 
DO  40  K-1,NP 

c  from  eqn  34  of  AFFDL-TR-79-3087  for  rigid  wing  ( [B]  -  [A]) 
SUM1-SUM1+A(I,K) 
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c 
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c 
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c 

c 


c 

c 


c 

c 


trotn  eqn  41  ot  AFFDL-TR-79-3087  for  rigid  wing 
SUM2-SUM2 * A ( I , K ) « Y ( K ) 

from  eqn  39  of  AFFDL-TR-79-3087  for  rigid  wing 
40  SUM3“SUM3*-A(  I , K) ‘SHAPE { K )  *CM( K ) 

SR  is  the  lift  per  unit  span  per  rad.  of  wing  Incidence  divided  by 
the  dynamic  pressure  q 
SR(I)-SUM1 

roll-in-damping  or  lift  opposing  rolling  moment  from  apparent  AOA  change 
RDAMP( IJ-SUM2 

lift  from  appareht  AOA  change  due  to  one  rad.  aileron  deflection 
50  RAIL( I )-SUM3 

SUM-0 . 0 

DO  60  1-1 , NP 
60  SUM-SUM+SR( I ) *H( I ) 

RLIFT  is  the  coefficient  of  lift  divided  by  q*  AREA* AOA 
CL  alpha,  eqn  38  of  AFFDL-TR-79-3087  for  rigid  wing 
RLIFT-SUM/ ( Q* AREA ) 

SUM3-0 . 0 
SUM2-0 . 0 
SUM1-0.0 
SUM4-0.0 
SUM5-0.0 

following  for  eqn  44  of  AFFDL-TR-79-3087  for  rigid  wing 
[B] - [A]  and  [E] -0 
DO  70  1-1 , NP 

SUM1-SUM1+SR( I ) *XV{ I ) *H ( I ) 

SUM2-SUM2+SR (I)*Y(I)*H(I) 

SUM3-SUM3+SR ( I ) *H( I ) 

SUM4-SUM4+RDAMP( I ) *H( I ) *Y( I ) 

70  SUM5-SUM5+RAIL( I)*H(I)*Y(I) 

cartesian  coordinates  of  center  of  pressure,  non- rotated  axis 
XCP-SUM1/SUM3 

(assumed  to  lie  on  quarter-chord) 

YCP-SUM2/SUM3 

DO  80  1-1 , NP 

panel  lift  per  unit  span  divided  by  C*Q*A0A,  CL  alpha 
SLOPE(I)-SR(I)/(Q*H(I)*C(I) ) 
total  rigid  wing  lift  on  semi-span  (Ibf) 

80  RL-RL+SLOPE (I)*Q*H(I)*C(I) /ZA0A ( I ) 

RPB/2V  is  the  rigid  wing  aileron  effectiveness  (helix  angle) 
no  good  first  time  through,  must  use  anti- symmetric  [AIC] 

IF  (NCT.LE.0)  RPB2V — SUM5/(SUM4/SSPAN) 

IF  (NCT.GT.0)  GO  TO  90 

NCT-1 

GO  TO  100 


PROGRAM  RIG 


c  sample  run  for  subroutine  RIDGROL 
c  present  limit  twenty  semi-span  panels 

C0MM0N/R1/AREA, SSPAN, RLIFT , RPB2V, XCP, YCP, AIS( 20 , 20) , NP 
COMMON /R2/X( 20) , Y( 20 ) ,C( 20 ) , E( 20 ) , H( 20 ) , SHAPE( 20 ) , Q, RL 
COMMON/R  3/CM ( 20) , CMDEL{ 20 ) , SLOPE( 20 ) , AIA( 20,20), ZA0A( 20 ) 

READ  (5,*)  NP,Q, SSPAN, AREA 
DO  10  I-1,NP 

READ  (5,*)  X(I),Y(I),H(I),E(I),C(I) 

10  READ  (5,*)  ZAOA( I ) , SHAPE ( I ) , CM( I ) , CMDEL( I ) 

READ  (5,*)  ((AIA(M,N),N-1,NP),M-1,NP) 

READ  (5,*)  ( (AIS(M,N) ,N-1,NP) ,M“1,NP) 

CALL  RIGDROL 

WRITE  (6,*)  "RIGID  WING  RESULTS" 

WRITE  (6,*) 

WRITE  (6,*)  "Pb/2V  -  " , RPB2V 
WRITE  ( 6 , * ) 

WRITE  (6,*)  "CENTER  OF  PRESSURE  LOCATION  (inches)  X  -  ",XCP 
WRITE  (6,*)  "  Y  -  " , YCP 

WRITE  (6,*) 

WRITE  (6,*)  "CL  alpha  -  ", RLIFT 
WRITE  (6,*) 

WRITE  (6,*)  "TOTAL  LIFT  ON  SEMI-SPAN  (lbf)  -  " , RL 
WRITE  (6,20) 

DO  30  I-1,NP 

WRITE  (6,*)  I,SLOPE( I) 

30  CONTINUE 

20  FORMAT  (/33HPANEL  LIFT  PER  UNIT  SPAN  (lbf/in) 

1/19HPANEL  1  IS  OUTBOARD/) 

END 


Sample  10  program  for  RIGDROL 


10  .1724  45.0  1012.5 


14.22 

42.75 

4.5 

1.866  9.00 

1.0 

-1.0 

0.5854  -0.64 

12.72 

38.25 

4.5 

2.657  12.0 

1.0 

-1.0 

0.5854  -0.64 

11.23 

33.75 

4.5 

3.447  15.0 

1.0 

-1.0 

0.5854  -0.64 

9.73 

29.25 

4.5 

4.237  18.0 

1.0 

-1.0 

0.5854  -0.64 

8.23 

24.75 

4.5 

5.028  21.0 

1.0 

-1.0 

0.5854  -0.64 

6.74 

20.25 

4.5 

5.818  24.0 

1.0 

-1.0 

0.5854  -0.64 

5.24 

15.75 

4.5 

6.609  27.0 

1.0 

0.0 

0.0 

0.0 

3.74 

11.25 

4.5 

7.399  30.0 

1.0 

0.0 

0.0 

0.0 

2.25 

6.75 

4.5 

8.189  33.0 

1.0 

0.0 

0.0 

0.0 

0.75 

2.25 

4.5 

8.980  36.0 

1.0 

0.0 

0.0 

0.0 

1 . 509504795E+01  5.73390913  3.48990107  2.42930818  1.78549194 

1.33152413  9 . 7521 328 93E-01  6 . 7144 59658E-01  3 . 95104 2891E-01 

1.308466047E-01  5.19806242  1 . 77 1542358E+01  7.45260477  4.69136143 

3.28613472  2.38382387  1.71628881  1.16904998  6 . 835322976E-01 

2.256794274E-01  2.86450267  6.97287941  1 . 909598732E+01  8.45105934 

5.38750124  3.73845124  2.62520599  1.76178288  1.02131355 

3.358560205E-01  1.83893025  4.06110573  8.05369186  1 . 99661407 5E+01 

9.06076145  5.75315189  3.87828088  2.54590464  1.45814145 

4.768725634E-01  1.26493430  2.65693283  4.82835197  8.73858166 

2.046922302E+01  9.33213806  5.78209400  3.65660071  2.05561686 

6.668341160E-01  8 . 926386833E-01  1.81893468  3.16474676  5.28559446 

9.07884789  2 . 060920715E+01  9.21843147  5.37993860  2.92605567 

9.366811514E-01  6 . 241097450E-01  1.24725080  2.11532426  3.40066576 

5.41666031  9.03147793  2 . 030063248E+01  8.57571793  4.32574940 

1.34998214  4 . 134300947E-01  8 . 159627318E-01  1.36240053  2.14'22369 

3.30258894  5.12547445  8.45479679  1 . 932588387E+01  7.06468630 

2.06804013  2.359407842E-01  4 . 621981680E-01  7 . 647440434E-01  1.18952620 

1.80147088  2.71625233  4.18732119  7.00693607  1 . 712791824E+01 

3.67482018  7 . 650993764E-02  1 . 493618190E-01  2 . 4611014 13E-01 

3.808220029E-01  5 . 726240277E-01  8. 538046479E-01  1.28810740  2.03329325 

3.66406035  1 . 140818214E+01 

1 . 522857 380E+01  5.96310043  3.82033515  2.87379861  2.36041355 

2.05599952  1.87082624  1.76191103  1.70555520  1.68618894  5.40655422 

1 . 807481766E+01  7.97303772  5.39460516  4.19999790  3.54103684 

3.15424109  2.92951870  2.81190491  2.76885939  3.14245343  7.45420218 

1 . 979629707E+01  9.40200710  6.62955093  5.31964207  4.60114527 

4.19573450  3.98382759  3.90300393  2.18809867  4.66872692  8.94227695 

2. 117912865E+01  1 . 065380573E+01  7.79299164  6.44328308  5.72700071 

5.35961246  5.21623898  1.68967009  3.39996672  5.92095947 

1 . 023 8637 92E+01  2 . 245115471E+01  1 . 188621807E+01  9.01604748  7.69819355 

7.05599117  6.80469275  1.39890170  2.70968294  4.48244715  7.10608864 

1. 150020123E+01  2 . 375194168E+01  1 . 322908020E+01  1 . 043674183E+01 

9.24757767  8.79599571  1.21933305  2.30112791  3.68471789  5.58411503 

8.34255409  1 . 286012268E+01  2 . 523128319E+01  1 . 485822678E+01 

1 . 228022766E+01  1 . 140461731E+01  1.10676730  2.05220938  3.21712255 

4.74516201  6.81793594  9.76934624  1 . 450068855E+01  2 . 713015938E+01 


1  711086273E+01  1 . 506569862E+01 

4.28035450  6.02116299  8.35450459 

2. 999795723 E+ 01  2 . 095891380E+01 

4.06414938  5.66253471  7.75183964 

2.069534683E+01  3 . 6094051 36E+01 


1  03905964  1.90560842  2.94873929 

1. 162740707E+01  1 . 677473831E+01 

1.00545573  1.83426082  2.82081747 

1 . 055162239E+01  1 . 448704529E+01 


Sample  input  for  RIGDROL 


RIGID  WING  RESULTS 
Pb/2V  -  7. 593739033 E-01 

CENTER  OF  PRESSURE  LOCATION  (inches)  X  -  4 . 69077  944 8E-01 

Y  -  1 . 936562347E+01 

CL  alpha  -  2. 137557030E+01 

TOTAL  LIFT  ON  SEMI-SPAN  ( lbf )  -  1 . 300133179E+03 

PANEL  LIFT  PER  UNIT  SPAN  (lbf /in) 

PANEL  1  IS  OUTBOARD 

1  5.63242245 

2  6.04264164 

3  5.88019848 

4  5.59788942 

5  5.28864479 

6  4.97651196 

7  4.66740799 

8  4.36177492 

9  4.05870152 

10  3.75838327 


Sample  output  for  RIGDROL 


l,  mi  t.M.t  «■«  «.t  i)m*  I 


VGFLUTR 


« 


i 


r 


This  subroutine  performs  iterative  flutter  computations  given  the 
aeroelastic  operators  using  the  V-g  method.  No  10  program  or  sample  is 
appropriate  for  this  subroutine. 


*•5 

K 


SUBROUTINE  VGFLUTR 


# 

c  this  program  performs  simple  flutter  computations  by  the  VG-method 
c  assumes  no  free-body  modes  in  operators 

DIMENSION  RM(40,40) ,RK( 40,40 ) ,A< 40,40 ) ,RXI( 40,40 ) ,OKM( 40) 

C0MMON/FL1/N , VI , VE , OHMT , RNF ( 4  0 ) , EVECT (40,40) 

COMPLEX  A, RMAT( 40 , 40 ) , RLAMBDA(40 ) 

c  N  -  number  of  DOFs  multiplied  by  number  of  nodes, 

c  dimension  of  square  operator  matrices 

c  VE  -  final  velocity  for  analysis  (mph) 

c  VI  -  velocity  increment  (mph) 

c  OHMT  -  tolerance  on  frequency  for  match 

C  »**  PROVIDE  DATA  AND  SUBROUTINES  TO  CALCULATE  OPERATORS  *** 
c  INERTIA  (RM),  STRUCTURE  (RX),  AND  AERODYNAMIC  [A] 

CALL  STRUC 
CALL  MASS 

C  *»*  PROVIDE  MEANS  FOR  INVERTING  (RX]  FOR  (RXI)  «*» 

CALL  NFREQ 

C  ***  PRODUCES  ARRAY  OF  NATURAL  FREQUENCIES  (RNF)  **» 

C  AND  MATRIX  OF  NATURAL  MODES  IN  DESCENING  ORDER  [EVECT] 

c  top  of  velocity  loop 
DO  90  I-0,VE, VI 

c  velocity 

<flh  V-I 

c  top  of  mode  loop 
DO  80  J-1,N 

MODE-J 

c  using  natural  frequency  as  initial  guess 
IF  (V.EQ.0.0)  OHM (MODE) -RNF (MODE) 

c  top  of  frequency  loop,  10000  iterations  permitted 
DO  60  XK-1, 10000 

CALL  AERO 

c  replace  operators  with  modal  form 
CALL  MODAL 

DO  20  L-1,N 
DO  10  K-1,N 

10  RMAT(L, X )-( 1/OHM (MODE ))*A(L,X)-RM(L,X) 

20  CONTINUE 

c  premultiply  by  inverse  of  (RX] 

DO  50  L-1,N 
DO  40  X-1,N 
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PROGRAM  VG 

c  sample  input  program  for  subroutine  VGFLUTR 
c  present  limit  40  DOF/panels  combinations 

C0MM0N/FL1/N ,  VI ,  VE ,  OHMT ,  RNF  ( 4  0  )  ,  EVECT  ( 4  0 , 4  0 ) 

READ  (5,*)  N 

READ  (5,*)  VE, VI, OHMT 


c  write  header 

WRITE  (6, *  )  "  VG-METHOD  RESULTS" 

WRITE  (6,*) 

CALL  VGFLUTR 


DO  10  I-1,N 
WRITE  (6,*) 
WRITE  (6,*) 

WRITE  (6,*) 
DO  20  J-1,N 
20  WRITE  (6,*) 
10  WRITE  (6,*) 

END 


NATURAL  FREQUENCY  ”,J,H  -  ”,RNF(J) 


EIGENVECTOR  ",J,"  - 


" , EVECT ( I, J) 


Sample  10  program  for  VGFLUTR 


209 


The  listing  and  users  manual  for  the  static  aeroelastic  computer 
program  COMPSTAT  (Composite  Static)  is  here  provided.  This  program 
serves  as  an  example  of  a  driver  or  main  program  for  the  series  of 
subroutines  provided  elsewhere  in  this  report.  This  program  was  used 
for  the  optimization  exercise  described  in  the  body  of  this  report  and 
is  provided  here  primarily  for  illustrative  purposes,  although  it  may  be 
adapted  to  the  specific  uses  of  the  reader.  The  input  follows  the 
convention  established  within  the  body  of  this  report.  It  essentially 
performs  the  same  tasks  as  Dr.  Weisshaar's  CWINGS  program  but  also 
determines  the  reversal  speed,  the  total  wing  lift,  and  the  torsional 
deflected  shape.  It  permits  a  nonuniform  spanwise  thickness 
distribution  of  the  composite,  wing  incidence  plus  washout  or  washin, 
and  separation  of  the  box  beam  from  the  control  surfaces  of  the  overall 
aerodynamic  planform.  Total  semi-span  lift  and  torsional  deflections 
are  also  calculated. 

CARD  1: 

Header  card,  reproduced  in  the  print-out  to  identify  the  run 

CARD  2: 

N  =  number  of  composite  plies,  at  root  if  tapered 

thickness 


NV 


=  number  of  plies  to  have  orientation  changed 


•s 


*'l 

>•1 


i1* 

I 

$ 


NCASE 


CARD  3: 


CARD  4: 


=  number  of  spanwise  panels  in  the  semi-span,  should  be 
greater  than  7  for  accuracy 

=  number  of  laminate  rotation  variations  to  be  analyzed 
=  0  -  nonlinearly  tapered  planform 
=  1  -  linearly  tapered  planform 

=  0  -  nonlinearly  tapered  spanwise  laminate  thickness 

=  1  -  constant  spanwise  laminate  thickness 

=  4  -  fourth  order  spanwise  laminate  thickness 

=  0  -  box  beam  and  aerodynamic  planform  treated  sa  same 

=  1  -  box  beam  parameters  input  separate  from  aero¬ 
dynamic  planform 


=  fiber  angle  increment  for  each  NCASE  (deg) 

=  section  lift-curve  slope,  constant  full  span 


=  velocity  at  which  analysis  will  be  done  (mph) 

=  freestream  air  density  (lbf-s  /ft  ) 

=  0  -  iterate  velocity  for  reversal  speed  search 
=  other  than  0  -  no  velocity  iteration 


Card  5  is  read  if  ITER  =  0 


CARD  5: 


VQI  =  velocity  increment  added  to  VQ  (mph) 

ITN  =  number  of  velocity  iterations  to  be  performed 


CARD  6s 


=  aerodynamic  chord  at  wing  root  (in.) 


-  V.v  R ' 


* 


LlLi  * 


vwvtnrwvwvwv  wv  *tt' 


=  structural  chord  at  wing  root  (in.) 


=  distance  between  a.c.  and  reference  axis,  measured 
parallel  to  flow,  positive  forward  (in.) 


CARD  7: 


SSPAN 


=  wing  semi-span  perpendicular  to  root  (in.) 


SWEEPR 


=  sweep  of  reference  axis  at  root,  positive  aft  (deg), 
measured  perpendicular  to  root 


TAPER 


=  wing  taper  ratio 


Card  8  is  read  if  NSTR  =  1 


CCSR  =  box  beam  structural  root  chord  (in.) 


CSWEEPR  =  box  beam  refernce  axis  sweep  angle  (deg.) 


CARD  9: 


modulus  of  elasticity  along  axis  1  of  material  (psi) 


=  modulus  of  elasticity  along  axis  2  of  material  (psi) 


=  Poisson's  ratio  of  material 


=  shear  modulus  of  material  (psi) 


Input  next  data  in  order  for  each  panel,  from  the  tip  inboard. 


CARD  10: 


ZAOA  =  panel  incidence  from  section  zero-lift  AOA  (deg) 


=  C-,  /c-i  for  panel 
±  c  ■** 


CMDEL  =  cm  for  panel 


SHAPE  =  aileron  segment  deflection  normalized  to  largest  value 
and  negative,  example:  -1.0  if  deflects  same  amount, 
-0.5  if  deflects  half  as  much,  0.0  if  no  aileron  on 
panel 


I 


>  V  %>■»!)  V 


.»«  1*1 


There  will  be  N  or  card  11,  numbered  as  input.  Input  variable  plies 


first . 


CARD  11 


ZNL  =  distance  from  mid  plane  of  box  beam  to  lower  surface  of 

ply,  positive  up 

ZNU  =  as  in  ZNL  but  for  ply  upper  surface 

THETA  =  initial  ply  orientation  as  measured  from  the  structural 
root,  positive  forward 


Cards  12-13  are  used  if  NLIN=0  and  NTAP=0.  There  will  be  NP  of  Card  12. 
CARD  12: 

NPR  = number  of  plies  to  be  removed  from  panel 


There  will  be  NPR  of  card  13. 


CARD  13: 


NR  = number  of  the  ply  to  be  removed,  remove  only  outer 

plies 


.VCW’WV 


Tl 


PROGRAM  COMPSTAT 


c  main  program  for  running  composite  static  subroutines 

C0MM0N/C1/CR , ER, SSPAN, TAPER , AREA , SWEEPR , CSR ,  NP 
COMMON/C2/H( 20) , X( 20) , Y ( 20 ) , C( 20) , CS ( 20 ) , E{ 20 ) , SWEEP( 20 ) 
C0MM0N/C3/EI ( 20 ) , GJ ( 20 ) , AX ( 20 ) , NR ( 60 ) , SHAPE( 20 ) 
C0MM0N/C4/E1  , E2 , P12 , G12 , DR , N , NV , NLIN , NTAP , SAOA( 20 ) 
CQMMON/C5/ZNL( 60 ) , ZNU( 60 ) , THETA < 60 ) , S( 20 , 20 )  ,MM 
C0MM0N/C6/SPAN , RLIFT, RPB2V , XCP , YCP , AXS ( 20 , 20 ) 

COMMON/C7/CM( 20 ) , CMDEL( 20 ) , SLOPE( 20 ) , AIA( 20,20) 

COMMON/C 8/ AS (.20 , 20 ) ,  AA(  20 , 20  ) ,  DALPHA( 20 ) ,  FLIFT, PB2V 
COMMON/C9/QDIV, VDIV, RHO , AIC < 20 , 20 ) , AO , SYM, Q , RL , FL, ZAOA( 20 ) 

CHARACTER *4  HEADER (18) 

c  defining  PI 

PI-ACOS(-l.O) 


READ  (5,890)  HEADER 

READ  (5,*)  N ,  NV ,  NP, NCASE, NLIN, NTAP , NSTR 
READ  (5,*)  DDEL , A0 
READ  (5,*)  VQ, RHO, ITER 
IF  (ITER.E0.0)  READ  (5,*)  VQI,ITN 
READ  (5,*)  CR , CSR , ER 
READ  (5,*)  SSPAN, SWEEPR, TAPER 
IF  (NSTR.EQ.l)  READ  (5,*)  CCSR , CSWEEPR 
c  use  full  planform  values  for  aero  calculations 
IF  (NSTR.EQ.l)  CSRS-CSR 
IF  (NSTR.EQ.l)  SWEEPRS-SWEEPR 
READ  (5,*)  El , E2 , PI 2 , G1 2 
c  input  aileron  data  from  tip  inboard 
DO  10  I-1,NP 

10  READ  (5,*)  ZAOA( I ) ,CM( I ) , CMDEL( 1 ) , SHAPE ( I ) 
DO  20  I-1,N 

20  READ  (5,*)  ZNL( I ) , ZNU( I ) , THETA( I ) 

c  conversion  to  ft/sec 
V-(VQ/3600)*5280 
c  conversion  to  psi 

Q-(RHO/( 12**4) )*. 5*(V*12. )**2 


c  copy  of 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


input 

(6,890 

{(>,*) 

(6-*) 

(6,*) 

(«,*) 

(6,*) 

(6.*) 

(6,*) 

(6,*) 

(6,*) 

(6,*) 

(6,*) 

(6-*) 

(6,*) 

(6,*) 

(6,*) 

(6,*) 


)  HEADER 


TEST  CONDITIONS:" 

INITIAL  VELOCITY  (mph)  -  ",VQ 
VELOCITY  INCREMENT  (mph)  -  ",VQI 
NUMBER  OF  VELOCITY  INCREMENTS  -  " , ITN 
TEST  DYNAMIC  PRESSURE  (psi)  -  ",Q 
AIR  DENSITY  (lbf  S**2/ft**4)  -  " , RHO 

INPUT  CONSTANTS : " 

NUMBER  OF  SEMI-SPAN  PANELS  -  " ,  NP 
NUMBER  OF  PLIES  TO  BE  ROTATED  -  " , NV 
VARIABLE  PLY  ROTATION  ANGLE  (degrees)  - 

WING  PARAMETERS:" 

2-D  LIFT  CURVE  SLOPE  OF  SECTION  -  ",A0 


" , DDEL 


A 

V.' 
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WRITE  (6,*)  "  ROOT  A.C.  6  STRUCTURAL  AXIS  OFFSET  (inches)  -  - , ER 
WRITE  (6,*) 

WRITE  (6,*)  "AILERON  DATA:" 

WRITE  (6,900) 

DO  30  I-1,NP 

30  WRITE  (6,910)  I , ZAOA( I ) , SHAPE ( I ) , CM( I ) , CMDEL( I ) 

WRITE  (6,*) 

WRITE  (6,*)  "MATERIAL  PROPERTIES:” 

WRITE  (6,*)  "  El  (psi)  -  " , El 

WRITE  (6,*)  "  E2  (psi)  -  " , E2 

WRITE  (6,*)  ”  P12  -  " , P12 

WRITE  (6,*)  "  G12  (psi)  -  ” ,G12 

WRITE  (6 , * ) 

WRITE  (6,*)  "COMPOSITE  LAYUP:" 

IF  (NTAP.EQ.O)  WRITE  (6,*)  "  NONL I NEARLY  TAPERED  SPANWISE 

1  LAYUP  THICKNESS" 

IF  (NTAP.EQ. 1)  WRITE  (6,»)  "  CONSTANT  SPANWISE  LAYUP  THICKNESS" 
IF  (NTAP.EQ. 4)  WRITE  (6,*)  "  LINEARLY  TAPERED  SPANWISE  LAYUP 
1  THICKNESS" 

WRITE  (6,920) 

DO  40  I-1,N 

IF  (I.EQ.l)  THETAl-THETA(I) 

40  WRITE  (6,910)  I , ZNL( I ) , ZNU( I ) , THETA ( I ) 

DO  50  I-1,N 

50  THETA ( I ) -THETA ( I )* PI/180 . 0 
WRITE  (6,*) 

WRITE  (6,*)  "PLANFORM  DATA:" 

WRITE  (6,*)  ”  ROOT  CHORD  (INCHES)  -  ",CR 
WRITE  (6,*)  "  ROOT  STRUCTURAL  CHORD  (inches)  -  ",CSR 
WRITE  (6,*)  "  ROOT  STRUCTURAL  CHORD  SWEEP  (degrees)  -  ",SWEEPR 
WRITE  (6,*)  "  SEMI-SPAN  (inches)  -  " , SSPAN 

WRITE  (6,*)  ”  WING  TAPER  RATIO  -  ",  TAPER 

IF  (NSTR.EQ.l)  WRITE  (6,*)  "  BOX  BEAM  ROOT  CHORD  (inches)  -  ", 
1CCSR 

IF  (NSTR.EQ.l)  WRITE  (6,*)  "  BOX  BEAM  REF.  AXIS  SWEEP  (deg)  - 
1CSWEEPR 

c  calculating  geometry  parameters 
CALL  GEOM 

WRITE  (6,*)  ”  SEMI-SPAN  AREA  (in.**2)  -  " , AREA 
IF  (NLIN.EQ. 1)  WRITE  (6,*)  "  LINEARLY  TAPERED  PLANFORM" 

IF  (NLIN.EQ. 0)  WRITE  (6,*)  "  NONL I NEARLY  TAPERED  PLANFORM" 
c  write  heading  for  GEOM  printout 
WRITE  (6,930) 

DO  60  I-1,NP 

60  WRITE  (6,940)  I,X(I),Y(I),C(I),CS(I),H(I),E(I), SWEEP ( I ) 

SYM-1.0 

c  symmetric  aero  matrix 
CALL  AEROl 
DO  80  1-1 , NP 
DO  70  J-1,NP 
70  AS ( I , J ) “AIC ( I , J ) 

80  CONTINUE 

c  MUST  PROVIDE  MEANS  OF  INVERTING  [AS]  FOR  [AIS] 
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■VAV 


SYM--1.0 

c  anti -symmetric  aero  matrix 
CALL  AER01 
DO  100  I-1,NP 
DO  90  J-1,NP 
90  AA{ I , J)”AIC{ I , J ) 

100  CONTINUE 


C  MUST  PROVIDE  MEANS  OF  INVERTING  [AA]  FOR  [ AIA) 

c  rigid  wing  characteristics 
CALL  RIGDROL 


printings  only  first  time  through  at  intial  test  velocity 
IF  (ITC.GT.0)  GO  TO  120 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


(6, 

<6, 

(6, 

(6, 

(6, 

(6, 

(6, 

(6, 

(6, 

(6, 

(6, 

<6, 

(6, 

(6, 


*  RIGID  WING  RESULTS  *’ 


(6,970) 


) 

) 

)  "(ALL  VALUES  FOLLOWING  FOR  INITIAL  VELOCITY  ONLY)" 

) 

) 

) 

) 

)  "Pb/2V  -  " , RPB2V 

) 

)  "CENTER  OF  PRESSURE  LOCATION  (inches) 

)  " 

)  "CL  alpha  -  " , RLIFT 

) 

)  "TOTAL  LIFT  ON  SEMI-SPAN  (lbf)  -  " , RL 


"  ,  XCP 
"  ,  YCP 


DO  110  I-1,NP 
WRITE  (6,*)  I , SLOPE( I ) 
110  CONTINUE 


120  D-0.0 

c  top  of  loop  for  each  rotation  case 
DO  230  L-l , NCASE 

DR-D*PI/180.0 

DD-D+THETA1 


WRITE  (6,*) 

WRITE  (6,*)  "***»»***»****.*.*».****»»*«»***•*..*.. 
WRITE  ( 6 , * ) 

WRITE  (6,*)  "FIRST  VARIABLE  PLY  ORIENTATION  -  " , DD 
WRITE  (6,950) 

c  use  only  structural  values  for  structural  calculations 
IF  (NSTR.NE. 1)  GO  TO  125 
CSR-CCSR 
SWEEPR-CSWEEPR 
CALL  GECM 

125  IF  ( (NLIN.EQ.0) .AND. (NTAP.EQ.0) )  GO  TO  140 
c  calculating  structural  properties 
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CALL  CSTRUC 


! 

! 


DO  130  I-1,NP 

130  WRITE  (6,960)  I , El ( I ) ,GJ( I ) , AK( I ) 

GO  TO  180 

c  read  plies  to  be  removed  (numbered  as  entered  above,  remove  outside) 
140  DO  170  M-1,NP 
c  initializing  for  each  panel 
DO  150  J-1,N 
150  NR(J)-0.0 

READ  (5,*)  NPR 
IF  (NPR.EQ.0)  GO  TO  160 
READ  (5,*)  (NR( I ) , 1-1 , NPR ) 

c  calculating  structural  properties 
160  CALL  CSTRUC 


I 

I 

I 


I 

| 


( 


1 


170  WRITE  (6,960)  MM, El (MM) ,GJ(MM) , AK(MM) 

c  flexibility  matrix 
180  CALL  CFLEX 

c  back  to  full  planform  values  for  deformation  calculations 
IF  (NSTR.NE. 1)  GO  TO  185 
CSR-CSRS 
SWEEPR-SWEEPRS 
CALL  GEOM 

c  velocity  increment  counter 
185  ITC-0 

c  reversal  parameters 
VR-0.0 
W-VQ 

c  top  of  loop  for  velocity  iterations 

c  conversion  to  ft/sec 
500  V-  ( W/3600 )  *5280 

c  conversion  to  psi 

Q-.5*(RHO/(12**4) )*(V*12)*»2 

c  calculate  AOA  from  aileron  deflection 
CALL  CAILRN 


c  flexible  wing  characteristics 
CALL  FLEXROL 


IF  (ITC.GT.0)  GO  TO  210 
WRITE  (6,*) 

WRITE  (6,*) 

WRITE  (6,*) 


WRITE  (6,*) 
WRITE  (6,*) 
WRITE  (6,*) 
WRITE  (6,*) 


"  *  FLEXIBLE  WING  RESULTS  *" 

"Pb/2V  -  " , PB2V 

"CENTER  OF  PRESSURE  LOCATION  (inches) 
"CL  alpha  -  " ,FLIFT 


WRITE  (6,*) 

WRITE  (6,*) 

WRITE  (6,*)  "TOTAL  LIFT  ON  SEMI-SPAN  (lbf)  -  " , FL 
WRITE  (6,970) 


"  ,  XCP 
"  ,  YCP 


I 
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DO  200  I-1,NP 
200  WRITE  (6,*)  I,SL0PE(I) 
WRITE  (6,*) 


c  calculate  torional  deformations 


CALL  DEFLCT 


WRITE  (6,*)  "PANEL  TORSIONAL  DEFLECTIONS  (deg)" 
WRITE  (6,*)  "  POSITIVE  LEADING  EDGE  UP" 

WRITE  (6,*) 


DO  205  I-l.NP 
205  WRITE  (6 ,  * )  I,SA0A(I) 


WRITE  (6,*) 

calculate  divergence  conditions 
210  CALL  DIVERG 


IF  (ITC.GT.0)  GO  TO  220 

IF  (VDIV.LE.0.0)  WRITE  (6,*)  "THIS  WING  WILL  NOT  DIVERGE" 


WRITE  (6,*)  "DIVERGENCE  DYNAMIC  PRESSURE  (psi)  -  ",QDIV 
WRITE  (6,*) 

WRITE  (6,*)  "DIVERGENCE  SPEED  (mph)  -  ",VDIV 
WRITE  (6,*) 

220  IF  (  (PB2V.LE.  0)  .AND.  (W.GT.  VQ)  )  WRITE  (6,*) 

1"REVERSAL  SPEED  (MPH)  -  "  ,W 
IF  (  (PB2V.LE.0)  .AND.  (W.EQ.VQ)  )  WRITE  (6,*) 

1" REVERSAL  SPEED  LESS  THAN  STARTING  VELOCITY" 

IF  (PB2V.LE.0)  GO  TO  230 

W-W+VQI 

ITC-ITC+1 

IF  ( (PB2V.GT. 0 ) .AND. ( ITC .GT. ITN ) )  WRITE  (6,*) 
l"NO  REVERSAL  WITHIN  SPEED  RANGE" 

IF  ( ITC.GT. ITN)  GO  TO  230 
GO  TO  500 


c  increment  laminate  rotation  for  each  case 
230  D-D+DDEL 


890  FORMAT  (18A4) 

900  FORMAT  ( 3X, 5HPANEL, 4X, 4HZA0A, 6X , 5HSHAPE,  7X ,  2HCM ,  6X , 

15HCMDEL) 

910  FORMAT  ( 5X, 12 , 4 ( IX, F9 . 4  )  ) 

920  FORMAT  ( 3X, 5HLAYER , 6X, 3HZNL, 7X , 3HZNU, 4X , 5HTHETA ) 

930  FORMAT  (31X,18H(all  units  inches)/22X, 

136H(X, Y  panel  center  on  reference  axis )/3X, 5HPANEL, 5X, 1HX, 9X, 
21HY , 9X, 1HC , 8X, 2HCS , 9X, 1HH , 9X, 1HE, 6X, 8HSWP(DEG ) ) 

940  FORMAT  ( 4X, 12 , 7 ( IX, F9 . 2 ) > 

950  FORMAT  (/, 4X, 5HPANEL7X , 2HEI , 9X, 2HGJ , 11X , 1HK/ 

112X, 8Hlb-in**2, 4X, 8Hlb-in**2, 8X, 1H-) 

960  FORMAT  ( 5X, 12 , 2X, 3E12 . 5 ) 

970  FORMAT  (/,  2X,  14HPANEL  CL  alpha/1 9HPANEL  1  IS  OUTBOARD/) 


END 
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A  sample  input  for  COMPSTAT  is  provided  following.  The  input  is 
that  used  to  produce  some  of  the  data  presented  in  the  body  of  this 
report.  Details  of  the  derivation  of  some  of  this  input  are  given 
below. 


=  6.28  (27T,  symmetric  airfoil) 

C,  =  3.7  (Figure  26) 

(cf  is  percent  chord  of  control  surface) 

C  =  -0.64 

mS 

from  the  equation  provided  in  Reference  7 


C  =  -2ycf(1  -  c£./c)3/c 


(142) 


CM  =  0.5892  CMDEL  =  -0.64 


1  V* 


.1  *tl  >.(  * 


A  sample  output  for  the  COMPSTAT  program  corresponding  to  the  input 
deck  is  provided  in  the  following  pages.  These  result  are  those 
presented  within  the  body  of  this  report. 


SAMPLE  RUN  FOR  PROGRAM  COMPSTAT 
32  32  10  3  1  1  1 


10.0  6.2832 

100.0  0.002308  0 

1.0  100 

37.5  36.13 

9.375  18.75 

45.0  18.4 

0.2 

28.25  21.5 

18844000.  1468000.  .280 

9100 

5.0  0.5854 

-0.64  -1.0 

5.0  0.5854 

-0.64  -1.0 

5.0  0.5854 

-0.64  -1.0 

5.0  0.5854 

-0.64  -1.0 

5.0  0.5854 

-0.64  -1.0 

5.0  0.5854 

-0.64  -1.0 

5.0  0.5854 

-0.64  0.0 

5.0  0.5854 

-0.64  0.0 

5.0  0.5854 

-0.64  0.0 

5.0  0.5854 

-0.64  0.0 

0.07875 

0.084 

90.0 

0.0735 

0.07875 

90.0 

0.06825 

0.0735 

90.0 

0.063 

0.06825 

90.0 

0.05775 

0.063 

90.0 

0.0525 

0.05775 

90.0 

0.04725 

0.0525 

90.0 

0.042 

0.04725 

90.0 

0.03675 

0.042 

45.0 

0.0315 

0.03675 

135.0 

0.02625 

0.0315 

45.0 

0.021 

0.02625 

135.0 

0.01575 

0.021 

45.0 

0.0105 

0.01575 

135.0 

0.00525 

0.0105 

45.0 

0.0 

0.00525 

135.0 

-0.00525 

0.0 

135.0 

-0.0105 

-0.00525 

45.0 

-0.01575 

-0.0105 

135.0 

-0.021 

-0.01575 

45.0 

-0.02625 

-0.021 

135.0 

-0.0315 

-0.02625 

45.0 

-0.03675 

-0.0315 

135.0 

-0.042 

-0.03675 

45.0 

-0.04725 

-0.042 

90.0 

-0.0525 

-0.04725 

90.0 

-0.05775 

-0.0525 

90.0 

-0.063 

-0.05775 

90.0 

-0.06825 

-0.063 

90.0 

-0.0735 

-0.06825 

90.0 

-0.07875 

-0.0735 

90.0 

-0.084 

-0.07875 

90.0 

Sample  input  for  COMPSTAT 
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SAMPLE  RUN  FOR  PROGRAM  COMPSTAT 


# 

TEST  CONDITIONS: 

INITIAL  VELOCITY  (mph)  -  1 . 000000000E+02 

VELOCITY  INCRE34ENT  (mph)  -  1.00000000 

NUMBER  OF  VELOCITY  INCREMENTS  -  100 

TEST  DYNAMIC  PRESSURE  (psi)  -  1 . 723076595E-O1 

AIR  DENSITY  (lbf  S*»2/ft**4)  -  2 . 308000112E-03 

INPUT  CONSTANTS: 

NUMBER  OF  SEMI -SPAN  PANELS  -  10 

NUMBER  OF  PLIES  TO  BE  ROTATED  -  32 

VARIABLE  PLY  ROTATION  ANGLE  (degrees)  -  1 . 000000000E+01 

WING  PARAMETERS: 

2-D  LIFT  CURVE  SLOPE  OF  SECTION  -  6.28319979 

ROOT  A.C.  6  STRUCTURAL  AXIS  OFFSET  (Inches)  -  9.37500000 


AILERON  DATA: 


D 

PANEL 

ZAOA 

SHAPE 

CM 

CMDEL 

B 

1 

5.0000 

-1.0000 

.5854 

-.6400 

B 

2 

5.0000 

-1.0000 

.5854 

-.6400 

H 

3 

5.0000 

-1.0000 

.5854 

-.6400 

H 

4 

5.0000 

-1.0000 

.5854 

-.6400 

1 

5 

5.0000 

-1.0000 

.5854 

-.6400 

1 

6 

5.0000 

-1.0000 

.5854 

-.6400 

5 

7 

5.0000 

.0000 

.5854 

-.6400 

i 

8 

5.0000 

.0000 

.5854 

-.6400 

• 

9 

5.0000 

.0000 

.5854 

-.6400 

10 

5.0000 

.0000 

.5854 

-.6400 

MATERIAL  PROPERTIES: 

i * 

El 

(psi)  - 

1 . 884400000E+07 

E2 

(psi)  - 

1 . 468000000E+06 

P12 

m 

2.800000012E-01 

K 

G12 

(psi)  - 

9. 100000000E+05 

| 

COMPOSITE  LAYUP: 

K 

CONSTANT  SPANWISE  LAYUP 

THICKNESS 

n 

LAYER 

ZNL 

ZNU 

THETA 

1 

1 

.0787 

.0840 

90.0000 

1 

2 

.0735 

.0787 

90.0000 

j 

3 

.0683 

.0735 

90.0000 

) 

4 

.0630 

.0683 

90.0000 

J 

5 

.0578 

.0630 

90.0000 

3 

6 

.0525 

.0578 

90.0000 

f 

7 

.0472 

.0525 

90.0000 

1 

8 

.0420 

.0472 

90.0000 

9 

.0367 

.0420 

45.0000 

! 

10 

.0315 

.0367 

135.0000 

! 

11 

.0262 

.0315 

45.0000 

! 

12 

.0210 

.0262 

135.0000 

13 

.0158 

.0210 

45.0000 

14 

.0105 

.0158 

135.0000 

15 

.0052 

.0105 

45.0000 

16 

.0000 

.0052 

135.0000 

17 

-.0052 

.0000 

135.0000 

18 

-.0105 

-.0052 

45.0000 

19 

-.0158 

-.0105 

135.0000 

WT1 


20 

-.0210 

-.0158 

45.0000 

21 

-.0262 

-.0210 

135.0000 

22 

-.0315 

-.0262 

45.0000 

23 

-.0367 

-.0315 

135.0000 

24 

-.0420 

-.0367 

45.0000 

25 

-.0472 

-.0420 

90.0000 

26 

-.0525 

-.0472 

90.0000 

27 

-.0578 

-.0525 

90.0000 

28 

-.0630 

-.0578 

90.0000 

29 

-.0683 

-.0630 

90.0000 

30 

-.0735 

-.0683 

90.0000 

31 

-.0787 

-.0735 

90.0000 

32 

-.0840 

-.0787 

90.0000 

PLAN FORM  DATA: 

ROOT  CHORD  (INCHES)  -  3 . 750000000E+01 

ROOT  STRUCTURAL  CHORD  (inches)  -  3 . 613000107E+01 

ROOT  STRUCTURAL  CHORD  SWEEP  (degrees)  -  1 . 839999962E+01 

SEMI-SPAN  (inches)  -  4 . 500000000E+01 

WING  TAPER  RATIO  -  2 . 000000030E-01 

BOX  BEAM  ROOT  CHORD  (inches)  -  2 . 825000000E+01 

BOX  BEAM  REF.  AXIS  SWEEP  (deg)  -  2 . 150000000E+01 

SEMI-SPAN  AREA  (in.**2)  -  1 . 012500000E+03 

LINEARLY  TAPERED  PLANFORM 


(all  units  inches) 

(X,Y  panel  center  on  reference  axis) 


PANEL 

X 

Y 

C 

CS 

H 

E 

SWP ( DEG ) 

1 

14.22 

42.75 

9.00 

7.19 

4 . 50 

1.87 

18.40 

2 

12.72 

38.25 

12.00 

10.24 

4 . 50 

2.66 

18.40 

3 

11.23 

33.75 

15.00 

13.28 

4.50 

3.45 

18.40 

4 

9.73 

29.25 

18.00 

16.33 

4.50 

4.24 

18.40 

5 

8.23 

24.75 

21.00 

19.38 

4.50 

5.03 

18.40 

6 

6.74 

20.25 

24.00 

22.42 

4.50 

5.82 

18.40 

7 

5.24 

15.75 

27.00 

25.47 

4.50 

6.61 

18.40 

8 

3.74 

11.25 

30.00 

28.51 

4.50 

7.40 

18.40 

9 

2.25 

6.75 

33.00 

31.56 

4.50 

8.19 

18.40 

10 

.75 

2.25 

36.00 

34.61 

4.50 

8.98 

18.40 

(ALL  VALUES  FOLLOWING  FOR 

INITIAL  VELOCITY  ONLY) 

*  RIGID  WING  RESULTS  * 

Pb/2V  -  7, 593737841 E- 01 

CENTER  OF  PRESSURE  LOCATION  (inches)  X  -  4 . 685883224E-01 


CL  alpha  -  2. 137715340E+01 

TOTAL  LIFT  ON  SEMI -SPAN  (lbf) 

PANEL  CL  alpha 
PANEL  1  IS  OUTBOARD 

1  5.63283920 

2  6.04308939 

3  5.88063383 

4  5.59830379 

5  5.28903675 


Y  -  1 . 936562538E+01 

2.600272217E+02 
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4.97688055 

4.66775370 

4.36209822 

4.05900240 

3.75866151 


FIRST  VARIABLE  PLY  ORIENTATION  -  9 . 000000000E+01 


PANEL 


El 

lb- in **2 
. 35461E+05 
. 52108E+05 
. 68755E+05 
. 85402E+05 
. 10205E+06 
. 11870E+06 
. 13534E+06 
. 15199E+06 
. 16864E+06 
. 18528E+06 


GJ 

lb-in**2 
.  11719E->-05 
.  17220E+05 
.  22721E+05 
.  28222E+05 
.  33723E+05 
.  39224E+05 
.  44725E+05 
.  50226E+05 
.  557 27E+05 
.  61228E+05 


. 41888E+03 
.  61552E+03 
. 81216E+03 
. 10088E+04 
. 12054E+04 
. 14021E+04 
. 15987E+04 
.  17953E+04 
.  19920E+04 
. 21886E+04 


*  FLEXIBLE  WING  RESULTS  * 
Pb/2V  -  6.531494111E-02 

CENTER  OF  PRESSURE  LOCATION  (inches) 


CL  alpha  -  2.10867143 

TOTAL  LIFT  ON  SEMI-SPAN  ( lbf ) 

PANEL  CL  alpha 
PANEL  1  IS  OUTBOARD 


1  1.98852074 

2  2.08585072 

3  1.97293186 

4  1.81573761 

5  1.65025866 

6  1.48767102 

7  1.33277619 

8  1.18872142 

9  1.05883360 

10  9.485813379E-01 

PANEL  TORSIONAL  DEFLECTIONS  (deg) 
POSITIVE  LEADING  EDGE  UP 

1  4.022011906E-02 

2  7.944701612E-02 

3  1.168501452E-01 

4  1 . 515954 584E-01 

5  1.828642488E-01 

6  2.098727375E-01 

7  2.318922579E-01 

8  2 . 482672185E-01 

9  2.584  269345E-01 

10  2. 618871629E-01 


1.13275003 

2.067225456E»01 


7 . 149621582E+01 


yK'C( 


DIVERGENCE  DYNAMIC  PRESSURE  (psi) 


4 .427346289E-01 


DIVERGENCE  SPEED  (mph)  -  1 . 60257614 1E+02 

REVERSAL  SPEED  (MPH)  -  1 . 050000000E+02 


i 


FIRST  VARIABLE  PLY  ORIENTATION  -  1 . OOOOOOOOOE+02 


PANEL 

El  . 

GJ 

K 

lb-in**2 

lb-in**2 

- 

1 

.  33911E+05 

.  14720E+05  - 

.  90781E+04 

2 

.  49830E+05 

.  21630E+05  - 

.  1 3340E+05 

3 

.  65750E+05 

.  28540E+05  - 

.  17601E+05 

4 

.  81669E+-05 

.  354  50E+05  - 

.  21863E+05 

5 

. 97588E+05 

.  42360E+05  - 

.  26125E+05 

6 

.  11351E+06 

.  49270E+05  - 

.  30386E+05 

7 

. 12943E+06 

.  56180E+05  - 

,  34648E+05 

8 

. 14535E+06 

.  63090E+-05  - 

.  38909E+05 

9 

. 16126E+06 

•70000E+05  - 

,  4  3171E+05 

10 

.  17718E+06 

.  76910E+-05  - 

,  47433E+05 

*  FLEXIBLE  WING  RESULTS  * 
Pb/2V  -  -4.143407568E-02 


CENTER  OF  PRESSURE  LOCATION  (inches) 
CL  alpha  -  6 . 401095390E-01 


X 

Y 


3.489552736E-01 
1 . 913026619E-01 


TOTAL  LIFT  ON  SEMI-SPAN  (lbf)  -  5 . 033717957E+02 

PANEL  CL  alpha 
PANEL  1  IS  OUTBOARD 


1  8. 288786411 E-01 

2  8. 866006732E-01 

3  8.611028790E-01 

4  8. 200795054E-01 

5  7.774482369E-01 

6  7.365571856E-01 

7  6.977873445E-01 

8  6.604267955E-01 

9  6. 231769323E-01 

10  5 . 84 1282010E-01 


PANEL  TORSIONAL  DEFLECTIONS  (deg) 
POSITIVE  LEADING  EDGE  UP 

1  -4.646832589E-03 

2  -9.582110681E-03 

3  -1.484933961E-02 

4  -2. 036479674 E-02 

5  -2.595181204E-02 

6  -3.136026859E-02 

7  -3. 627770767 E-02 

8  -4.033524171E-02 

9  -4 . 310931265E-02 


& 


E, 


I 


'■■/ 


10  -4 .411911219E-02 

DIVERGENCE  DYNAMIC  PRESSURE  (psi)  -  2 . 882335281E+01 

DIVERGENCE  SPEED  (mph)  -  1 .  293061401E+03 

REVERSAL  SPEED  LESS  THAN  STARTING  VELOCITY 


****************************«***i 


FIRST  VARIABLE  PLY  ORIENTATION  - 


1. 100000000E+02 


PANEL 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


El 

lb-in**2 
. 29422E+05 
. 4  3233E+05 
. 5704  5E+05 
. 70857E+05 
. 84668E+05 
. 98480E+05 
. 11229E+06 
. 12610E+06 
. 13991E+06 
. 15373E+06 


GJ 

lb-in**2 
.  22320E+05 
.  32797E+05 
.  43275E+05 
.  53753E+05 
.  64230E+05 
.  74708E+05 
.  85186E+05 
.  95664E+05 
.  10614E+06 
.  11662E+06 


16048E+05 
• . 23582E+05 
■ .  31115E+05 
• . 3  864  9E+05 
■ .  4  6183E+05 
■ .  537 16E+05 
■ .  61250E+05 
- .  68784E+05 
■ .  76317E+05 
■ .  83851E+05 


*  FLEXIBLE  WING  RESULTS  * 
Pb/2V  -  -1 . 098326 22 IE-01 


X 

Y 


CENTER  OF  PRESSURE  LOCATION  (inches) 

CL  alpha  -  3 . 189558983E-01 

TOTAL  LIFT  ON  SEMI-SPAN  (lbf)  -  5 . 303195801E+02 


3. 124650717 E- 01 
1.782903290E<-01 


PANEL  CL  alpha 
PANEL  1  IS  OUTBOARD 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


4.749123752E-01 
5. 200316310E-01 
5.204787254E-01 
5. 140408278E-01 
5 . 080339909E-01 
5.035698414E-01 
4. 998199 344 E-0] 
4.949915111E-01 
4 . 863912165E-01 
4 . 697 19 14 17 E- 01 


PANEL  TORSIONAL  DEFLECTIONS  (deg) 
POSITIVE  LEADING  EDGE  UP 


-1.826104894E-02 
-3.659510985E-02 
-5.482691899E-02 
-7.262137532E-02 
-8. 952312917 E-02 
-1.04 97 88967 E-01 
-1. 183499768E-01 
-1.289179921E-01 
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J '  .*  _*  _•  '  •>  ~ J-  *  ■  •  ~  *  *, 

.  .  -v-  j 


9  -1. 358843893E-01 

10  -1. 383622438E-01 


DIVERGENCE  DYNAMIC  PRESSURE  (psi)  -  3 . 664583130E+02 

DIVERGENCE  SPEED  (mph)  -  4 . 610618164E+03 

REVERSAL  SPEED  LESS  THAN  STARTING  VELOCITY 


Sample  output  for  COMPSTAT 


A'.V'.'V! 


'.V.  v.v. 


Appendix  C;  Dynamic  Data 

Ground  Vibration  Test  Results 

The  GVT  was  performed  on  the  bare  plates  suspended  in  the  wind 
tunnel  in  the  same  manner  as  they  would  be  for  an  actual  "wind-on”  data 
run.  The  GVT  was  conducted  using  the  sine-dwell  method.  The  excitation 
point  and  reference  accelerometer  were  placed  at  different  locations 
depending  upon  the  mode  sought.  A  roving  accelerometer  was  used  to 
locate  node  lines.  Accelerometers  were  applied  to  the  plate  with 
double-sided  tape. 

Results  of  the  GVT  are  presented  in  Figures  27-29  and  summarized  in 
Table  XI.  Figures  for  the  first  bending  mode  are  not  shown  because,  by 
definition,  the  node  line  always  occurs  at  the  root  and  a  figure  would 
be  uninteresting.  Dotted  lines  indicate  node  lines.  Shaker  and 
reference  accelerometer  locations  are  indicated. 

The  damping  given  in  Table  XI  is  the  viscous  damping  factor  for  the 
first  bending  mode.  This  was  derived  from  a  trace  of  vibration  decay 
for  this  mode  using  the  log  decrement  technique  (11:30-31).  The  visous 
damping  factor  is  defined  as 

f  =  &  /(UTr2  +  &  2> 1/2  ( 143) 

where 

i  -  ( 1/j)ln(x1/xj+1)  (144) 

and  X.]  is  the  magnitude  of  one  trace  oscillation,  peak-to-peak,  and  Xj  +  1 
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A  reference  accelerometer 
location 
IP  in  phase 
OP  out  of  phase 


Second  Bending  -  20.7  Hz 


I 
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Fit’ 


■  shaker  location 
A  reference  accelerometer 
location 
IP  in  phase 
OP  out  of  phase 


Flaperon  Mode  -  27.0  Hz 


■  shaker  location 
A  reference  accelerometer 


location 
IP  in  phase 
OP  out  of  phase 


First  Torsion  -  13.3  Hz 


Figure  29A.  Case  3  GVT  Results 


1  vWv-A.y 


IP  in  phase 
OP  out  of  phase 


Second  Bending  -  17.8  Hz 


Note:  heavy  flaperon  motion 


■  shaker  location 
A  reference  accelerometer 
location 
IP  in  phase 
OP  out  of  phase 


Third  Bending  -  33.3  Hz 


Figure  29C.  Case  3  GVT  Results 
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Aileron  Mode  -  37.4  Hz 
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Table  XI 

Ground  Vibration  Test  Results 


Natural  Frequencies  (Hz) 

Mode 

Case  1 

Case  2 

Case  3 

1st  Bending 

4.5 

4.3 

3.7 

1st  Torsion 

13.9 

13.8 

13.3 

2nd  Bending 

17.8 

20.9 

17.8 

3rd  Bending 

42.25 

37.4 

33.3 

Aileron 

- 

27.0 

37.4 

Flap 

33.6 

- 

the  magnitude  of  another  j  peaks  away,  f  is  related  to  the  natural 
frequency  (a?n)  and  damping  factor  by  the  expression 


t  =  Cf/2muJn 


( 145) 


The  exponential  decay  of  the  structure's  ocillation  is  due  to  viscous 
damping,  where  the  exponent  is  a  linear  function  off.  Therefore, f  is  a 
measure  of  the  structure's  damping. 


Derivation  of  Dynamic  Parameters 

The  dynamic  parameters  used  in  program  CWINGF  have  been  derived  by 
simplified  methods  that  are  outlined  here. 


section  center  of  gravity  assumed  to  be  at  midchord 

square  of  the  panel  radius  of  gyration  about  the  elastic  axis 

p 

has  been  approximated  to  be  c  /12 
the  mass  per  unit  length  of  the  covering  material  on  each 
plate  panel  has  been  approximated  with  the  following 
equation 


mi  =  0. 078(2. 0)cfhi 

where  2.0  is  the  density  of  the  material  in  lbm/ft^ 


(  146) 


CWINGF  Results 


The  following  parameters  were  used  in  the  input  deck  for  Dr. 
Weisshaar's  CWINGF  flutter  analysis  program.  Only  those  that  cannot  be 
deduced  from  other  portions  of  this  report  are  included. 


9  m  •  ■  *  .  '  %  "  .  "  •  •  ■  •  «*  ■  .  "  »  ■*  P  *  .  •  m  *  ■  •  *  V  ' 

r.V.v.v.v 


100  lbm  =  one  half  of  fuselage  mass 

9999  If in^  =  one  half  of  fuselage  pitching  moment  of 

inertia  about  fuselage  center  of  gravity 
0.0  in.  =  offset  of  reference  axis  at  root  and  fuselage  center 
0.0  in.  =  offset  of  reference  axis  at  root  and  aircraft  c.g. 
2733300  psi  =  fuselage  bending  stiffness 
5^66600  psi  =  fuselage  torsion  stiffness 


Frequency  and  divergence  data  produced  by  the  CWINGF  program  using 
beam  theory  are  provided  in  Table  XII  for  both  the  covered  and  uncovered 
composite  plates.  Comparison  with  the  GVT  (Table  XI)  and  static 
analysis  results  show  poor  correlation.  This  comparison  is  uncertain  in 
that  the  modes  are  not  identified.  This  poor  correlation  casts  doubt  on 
the  flutter  computation  results  which  predicted  flutter-free  operation 
to  300  mph.  The  reduction  of  the  frequencies  with  the  addition  of  the 
mass  contributed  by  the  foam  covering  is  as  expected. 


Table  XII 


CWINGF  Flutter  Analysis  Results 
(Vjj  in  mph) 


Natural  Frequencies  (Hz) 


Uncovered 


Covered 


Case  1  Case  2  Case  3 


Case  1  Case  2 


5.8 

5.1 

4 .  1 

4.4 

3.8 

10.8 

12.3 

15.2 

7.4 

8.5 

25.1 

21 .3 

17.  4 

16.6 

14.8 

27.5 

32.2 

34.8 

20.2 

22.1 

HO.  5 

39.7 

HO. 5 

27.8 

27.7 
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3248 

268 

1645 

diveregnce  impossible 


D:  Material  Properties 


Material  Properties 

The  material  properties  of  the  AS4-3501-6  composite  used  in  the 
analysis  of  the  test  plates  are  given  below. 

E1  =  18844000  psi 

E2  =  1468000  psi 

12  ~  ® 


G12  =  910000  psi 

ply  thickness  =  0.00525  inches 

material  density  =  0.059  lbm/in3 


Tensile  Test  Results 

As  explained  in  Section  V,  special  samples  of  the  composite 
material  were  subjected  to  laboratory  tests  to  more  precisely  determine 
the  material  properties.  These  results  were  used  for  the  final 
comparison  of  test  to  predicted  aeroelastic  response.  These  properties 
are  provided  below. 


E1  =  18100000  psi 

EP  =  1650000  psi 


/*12  =  °‘30 
G12  =  740000  psi 

ply  thickness  =  0.00522  inches 


s 


When  composite  plies  are  stacked  with  the  fibers  parallel,  a 


"nesting"  of  the  fibers  occur.  When  the  thickness  of  a  laminate  is 
divided  by  the  number  of  plies  for  such  a  stacking  arrangement,  a 
smaller  ply  thickness  will  result  than  for  a  similar  procedure  for  a 
laminate  with  crossed  plies. 
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